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he  primary  purpose  of  this  report  is  to  document  the  organization  and  command 
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y  Air  Force  contractors  were  obtained  and  used  as  a  basis  for  developing  the  soft¬ 
ware  structure  necessary  to  handle  these  data.  This  report  describes  IICEP  and 
explains  the  development  of  the  organization,  structure,  and  software  of  the  pilot 
computerized  system.  It  will  form  the  basis  for  evaluating  the  system  and  further 
clarifying  the  need  for  data  base  refinement  and  update. 
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INTERAGENCY/INTERGOVERNMENTAL 
COORDINATION  FOR  ENVIRONMENTAL 
PLANNING  (IICEP):  SYSTEMS 
CONSIDERATIONS 


I  INTRODUCTION 
Background 

The  U.S.  Army  Construction  Engineering  Re¬ 
search  Laboratory  (CERL)  has  maintained  an 
extensive  systems  development  program  lor  Depart¬ 
ment  of  Defense  (DOD)  personnel  to  use  in  environ¬ 
mental  assessment,  planning,  and  management. 
These  systems  include  the  Environmental  Technical 
Information  System  (ETIS)  and  its  subsystems1 — the 
Environmental  Impact  Computer  System  (EICS),1 
the  Economic  Impact  Forecast  System  (EIFS),3  and 
the  Computer-Aided  Environmental  Legislative 
Data  system  (CELDS).4  These  systems  have  been 
used  extensively  by  both  the  Army  and  the  Air  Force. 
As  a  result  of  this  cooperative  effort,  CERL  has  been 
tasked  with  analyzing  new  areas  for  assisting  users 
and  producing  other  systems  which  respond  to  these 
additional  requirements  and  also  function  in  the 
same  interactive  mode  as  ETIS.  This  mode  is  ex¬ 
tremely  beneficial  from  both  developmental  and 
operational  standpoints.5  For  instance,  one  new 
application  for  the  ETIS  type  of  system  has  been  the 


'R.D.  Webster,  et  al..  Development  of  the  Environmental 
Technical  Information  System,  Interim  Report  E-52/ADA009668 
(U.S.  Army  Construction  Engineering  Research  Laboratory 
[CERL1,  April  1975). 

'Robert  Baran  and  R.D.  Webster.  Interactive  Environmental 
Impact  Computer  System  (EICSI  User  Manual.  Technical  Report 
N-80/ADA074890(CERL.  September  1979). 

'R.D.  Webster.  L.  Ortiz,  R.  Mitchell,  and  W.  Hamilton.  Devel¬ 
opment  of  the  Economic  Impact  Forecast  System  IEIFS) — The 
Multiplier  Aspects.  Technical  Report  N-35/ADA057936  (CERL. 
May  1978);  J.W.  Hamilton  and  R.D.  Webster,  Economic  Impact 
Forecast  System.  Version  2.0:  User's  Manual.  Technical  Report 
N-69/ADA07J667  (CERL.  July  1979). 

'RL,  Welsh.  User  Manual  for  the  Computer-Aided  Environ¬ 
mental  Legislative  Data  System.  Technical  Report  E-78/ 
ADA0I90I8  (CERL,  November  1975);  J.  van  Weringh,  J.  Patzer. 
R.  Welsh,  and  R.  Webster.  Computer-Aided  Environmental 
Legislative  Data  System  (CELDS)  User  Manual.  Technical  Report 
N-56/ADA061 1 26  (CERL.  September  1978). 

’B.W.  Kernighan  and  J.R,  Mashey.  "Unix  Programming 
Environment,"  Software  Practice  and  Environment.  Vol  9,  No.  I 
(January  1979),  pp  1-15;  J.  Zucker,  K.H.  Davis,  and  P.J.  Plauger. 
Automated  Software  Design  Tools:  "Unix;  A  High  Level  Environ¬ 
ment  for  the  Development  of  Microprocessor-Based  Systems," 
“Using  Unix  for  Development  of  Microprocessor-Based 
Systems."  "Using  Unix  for  Developing  Microprocessor  Software: 
A  Case  Study,"  "Unix  in  an  Office  Environment”:  presented  at 
Midcon  77  Electronic  Show  and  Convention,  Chicago.  IL,  8-10 
November  1977,  Electrical  and  Electronics  Exhibitions.  Inc. 


review  and  systemization  of  the  Air  Force's  three- 
volume  directory — Interagency/Intergovernmental 
Coordination  for  Environmental  Planning  (IICEP) — 
developed  to  insure  adequate  coordination  of  Air 
Force  activities  with  state  and  local  agencies  respon¬ 
sible  for  environmental  planning  issues  as  required 
by  Air  Force  Interim  Planning  Bulletin  14.  Updating 
the  information  in  the  current  directory  is  a  prob¬ 
lem.  Responsibilities  of  the  listed  agencies  change 
constantly;  furthermore,  the  directory — filling  three 
large  binders — is  physically  awkward  and  incon¬ 
venient  to  update  because  changes  must  be  mailed  to 
all  users.  A  computerized  system  could  help  remedy 
these  difficulties.  Implementation  of  IICEP  as  a 
new  subsystem  of  ETIS  will  encourage  maintenance 
of  current  directories  by  simplifying  retrieval  of  the 
contacts. 

Objective 

The  primary  purpose  of  this  research  was  to 
develop  a  pilot  IICEP  computerized  system  operat¬ 
ing  in  interactive  mode  on  the  same  host  computer 
as  ETIS  and  exhibiting  the  same  user-oriented 
characteristics  as  the  other  ETIS  subsystems.  A 
secondary  objective  was  to  identify  any  problems 
associated  with  the  IICEP  system’s  implementation 
under  ETIS  and  to  recommend  solutions  to  these 
problems. 

Approach 

The  documentation  for  IICEP  was  obtained  from 
AFESC,  the  data  base  was  designed  and  developed, 
and  an  interactive  retrieval  program  was  designed 
and  implemented. 
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THE  IICEP  PROGRAM 


IICEP  includes  a  three-volume  directory  of  state 
environmental  planning  agencies  designed  for  use 
by  the  three  Air  Force  Regional  Civil  Engineers. 
Agencies  located  in  all  50  states,  Guam,  and  Puerto 
Rico  are  included.  The  listed  agencies  deal  with 
issues  from  the  following  environmental  categories: 


1.  General 

2.  Air  Resources 

3.  Energy 

4.  Health  and  Safety 

5.  Land  Use 

6.  Natural  Resources 


7.  Noise 

8.  Socioeconomics 

9.  Solid  Waste 

10.  Transportation 

11.  Water 


Table  1  gives  the  subdivisions  of  the  11  major 
environmental  categories. 


■  ■»-  . . ----- 


Table  1 

Categorical  Breakout  of  IICEP 


I.  General 


b.  Natural  Resources 


Coordination 
Environmental  Quality 
Environmental  Impact  Statements 
A-95  Clearinghouse 
Transportation 

2.  Air  Resources 


Land  Management  and  Grounds  Maintenance 

Fish  and  Wildlife 

Recreation 

Forestry 

Archaeology  and  Historic  Preservation 
Flood  Control 
Oil  and  Gas 


General 


7.  Noise 


3.  Energy 

General 
Facility  Siting 

4.  Health  and  Safety 

General 

Civil  Defense 

Occupational  Health 

Pesticides 

Radiation 

Building  Codes 

Safety 


General 

8.  Socioeconomics 

Economic  Development 

Education 

Housing 

Local  Government 
Social  Services 

9.  Solid  Waste 

General 

10.  Transportation 


5.  Land  Use 

Planning 

Agriculture 

Coastal  Zone  Management 
Minerals  and  Geology 


General 

Aeronautics 

Highways 

II.  Water 
General 

Water  Resources  Management 


The  IICEP  directory  contains  information  allow¬ 
ing  the  user  to  decide  whether  a  particular  environ¬ 
mental  planning  issue  falls  under  the  responsibility 
of  an  agency,  and  lists  the  point  of  contact  at  each 
agency.  IICEP  listings  provide  the  agency’s  name 
and  function,  address,  telephone  number,  and  con¬ 
tact  person,  as  shown  by  the  examples  in  Appendix 
A.  Interim  Air  Force  Environmental  Planning  Bulle¬ 
tins  14  and  15  have  clarified  the  general  concepts  of 
IICEP  use  and  hierarchically  organized  the  data 
originally  contained  in  the  directory.  However, 
CERL’s  research  on  IICEP  has  indicated  that  updat¬ 
ing  the  information  is  the  most  serious  problem 
with  the  directory  and  the  computerized  system, 
primarily  because  the  jurisdictions  and  duties  of 
agencies  identified  in  IICEP  are  vague  and  change 
frequently. 

Interim  Air  Force  Environmental  Planning  Bulle¬ 
tin  15,  Volume  II,  lists  environmental  contacts  for 
Federal  agencies.  The  IICEP  pilot  program  used 
these  contacts  as  the  basis  for  developing  the  com¬ 


puter-based  retrieval  system.  The  listings  contained 
in  the  three  volumes  of  contacts  for  the  state  environ¬ 
mental  planning  agencies  will  be  incorporated  in  the 
IICEP  computer  program  at  a  later  date. 


3  THE  PILOT  SYSTEM: 

ORGANIZATION  AND  STRUCTURE 

For  the  three-volume  directory  of  state  environ¬ 
mental  planning  agencies,  Volume  II  of  Interim  Air 
Force  Environmental  Planning  Bulletin  15,  and  the 
computerized  system,  the  information  in  IICEP  is 
organized  around  a  unit  of  data  called  a  “contact." 
A  given  contact  consists  of  information  about  some 
individual  in  the  Government,  and  thus  generally 
lists  a  name,  title,  address,  and  phone  number.  In 
addition,  a  contact  includes  keyword  data  which 
enable  an  IICEP  user  to  locate  the  contacts  of 
interest.  The  keywords  currently  fall  into  the  follow¬ 
ing  seven  categories. 
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1.  “agency” 


3.  “region” 


This  category  consists  of  the  abbreviated  name  of 
the  30  major  agencies  of  the  executive  branch  of  the 
Federal  Government.  For  example,  “doc”  and 
“doa"  are  agency  keywords  corresponding  to  the 
Departments  of  Commerce  and  Agriculture.  AH 
contacts  belonging  to  the  Department  of  Commerce 
include  “doc”  as  one  of  their  keywords.  A  complete 
list  of  the  agencies  and  their  corresponding  keywords 


is  given  below: 

Advisory  Council  on  Historic  Preservation  ach 
Civil  Aeronautics  Board  cab 

Community  Services  Administration  csa 

Department  of  Agriculture  doa 

Department  of  Commerce  doc 

Department  of  Defense  dod 

Department  of  the  Interior  doi 

Department  of  J ustice  doj 

Department  of  Labor  dol 

Department  of  State  dos 

Department  of  Transportation  dot 

Environmental  Protection  Agency  epa 

Energy  Research  and  Development 
Administration  erd 

Executive  Office  of  the  President  exo 

Farm  Credit  Administration  fca 

Federal  Energy  Administration  fea 

Federal  Maritime  Commission  fmc 

Federal  Power  Commission  fpc 

General  Services  Administration  gsa 

Department  of  Health,  Education  and 

Welfare  hew 

Department  of  Housing  and  Urban 
Development  hud 

National  Aeronautics  and  Space 
Administration  nas 

Nuclear  Regulatory  Commission  nrc 

National  Science  Foundation  nsf 

National  Transportation  Safety  Board  nts 

Small  Business  Administration  sba 

Smithsonian  Institution  si 

Treasury  Department  td 

Veterans  Administration  va 

Water  Resources  Council  wrc 


2.  “sub-agency” 

This  category  corresponds  to  the  next  level  below 
“agency”  in  the  Government  hierarchy.  For  ex¬ 
ample,  “bureau  of  the  census”  is  a  subagency  key¬ 
word  occurring  in  some  of  the  contacts  belonging  to 
the  Department  of  Commerce. 


This  category  consists  of  the  names  of  the  Federal 
regions.  Unfortunately,  many  Federal  agencies  have 
adopted  nonstandard  regional  divisions.  Therefore, 
these  keywords  must  be  taken  in  the  context  of  the 
appropriate  Federal  agency.  The  10  standard 
Federal  regions — “region  1”  through  “region  10” — 
are  included  in  this  category,  as  well  as  regions  like 
the  “atlanta  region”  of  the  Department  of  Com¬ 
merce. 

4.  “state” 

This  category  consists  of  the  SO  state  names  and 
the  term  “us,”  which  refers  to  the  whole  United 
States.  Users  who  seek  contacts  concerning  some 
issue  in  an  individual  state  should  retrieve  the  con¬ 
tacts  having  that  state  as  a  keyword  (such  as  Ohio, 
“oh,”  or  Alabama,  “al”),  as  well  as  those  having 
“us”  as  a  keyword. 

5.  “topic” 

This  category  consists  of  the  11  general  topics 
listed  in  the  following  section. 

6.  “sub-topic” 

This  is  a  subcategory  of  the  “topic”  category.  The 
following  list  gives  various  topics;  the  subtopics 
under  each  are  indented. 

a.  general 

coordination 
environmental  quality 

environmental  impact  statements/A-95  clear¬ 
inghouse 
transportation 

b.  air  resources 

general  air 

c.  energy 

general  energy 
facility  siting 

d.  health  and  safety 

general  health  and  safety 

civil  defense 

occupational  health 

pesticides 

radiation 

building  codes 

safety 


V.IUI 


e.  land  use 

planning 

agricultural 

coastal  zone  management 
minerals  and  geology 

f.  natural  resources 

land  management  and  ground  maintenance 

fish  and  wildlife 

recreation 

forestry 

archaeology  and  historic  preservation 
flood  control 

g.  noise 

general  noise 


interagency/intergovernmental 
coordination  (a-95)  a-95 

joint  use  of  military  airfields  juma 

land  management  and  landscape 
development  Imld 

military  construction  program  (programs)  mcpp 
military  construction  program 


(construction) 

mcpc 

military  family  housing 

mfh 

noise  pollution 

np 

outdoor  recreation  and  cultural 

resources  orer 

pesticide  use  and  control 

puc 

real  property  and  acquisition 

rpa 

real  property  disposal 

rpd 

reducing  flight  disturbances 

rfd 

solid  waste 

sw 

water  pollution 

wp 

h.  socioeconomics 

economic  development 

education 

housing 

local  government 
social  services 

i.  solid  waste 

general  solid 


COMMAND  STRUCTURE 

This  chapter  discusses  the  commands  available  to 
the  IICEP  user.  Appendices  B  and  C  provide  the 
software  description  and  source  code  for  IICEP, 
respectively,  if  further  clarification  is  necessary. 
Table  2  lists  and  briefly  describes  IICEP  commands. 


j.  transportation 

aeronautics 

highways 

k.  water 

general 

water  resources  management 
7.  “program” 

This  category  contains  the  names  of  the  26  Air 
Force  programs. 


air  installation  compatible  use  zone  aicuz 

air  pollution  ap 

airfield  and  airspace  criteria  aac 

coastal  zone  management  czm 

compliance  with  pollution  controls  cwpc 

comprehensive  plan  cp 

energy  conservation  ec 

environmental  impact  assessments  and 
statements  eias 

explosive  safety  criteria  esc 

fish  and  wildlife  and  endangered  species  fwes 
forest  management  fm 

grazing  and  agricultural  outleasing  gao 


Selection  Commands 

The  IICEP  system  maintains  a  list  of  all  contacts 
in  the  data  base.  By  using  keywords  with  the  selec¬ 
tion  commands  described  below,  a  user  can  narrow 
this  list  to  those  contacts  of  interest. 

1.  “find” 

The  “find"  command  sets  the  list  of  contacts 
equal  to  those  associated  with  a  given  keyword.  For 
example,  “find  doc”  sets  the  current  list  to  con¬ 
tain  all  the  contacts  in  the  Department  of  Com¬ 
merce.  The  find  command  can  be  used  to  retrieve 
a  specific  contact  For  example,  “find  #  162”  brings 
the  contact  number  162  to  the  current  list. 

2.  "and” 

The  “and”  command  limits  the  current  list  to  con¬ 
tacts  already  in  the  list  and  associated  with  a  given 
keyword.  For  example,  suppose  a  user  types 

"find  hew” 

"and  radiation” 
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Table  2 

Pocket  IICEP:  Reference  For  Using  QCEP  Information  Retrieval  Program 
DCEP  Command  Glossary 


Command  Formal 

find  <  keyword  > 

Dtatrtplfcai 

-sets  current  subset  of  contacts 
equal  to  those  associated  with 
given  keyword. 

Categories 

(use  with  "list" 

and  "peek"  commands) 

Keyword 

(use  with  "find."  "and." 

"or"  and  "except"  commands) 

and  <  keyword  > 

-lin,  ;ts  current  subset  to  those 
associated  with  the  given 
keyword. 

agency 

e.g..epa 

or  <  keyword  > 

-augments  current  subset  with 
those  associated  with  the  given 
keyword. 

sub-agency 

region 

e.g.,  enforcement 

e.g..  region  b 

except  <  keyword  > 

•removes  from  current  subset 
those  contacts  associated  with 
the  given  keyword. 

state 

e.g..  texas 

save  <  filename  > 

-saves  current  list  in  the 
specified  file. 

topic 

sub-topic 

e.g..  land  use 
e.g.,  planning 

restore  <  filename  > 

-replaces  current  list  with  list  of 
contacts  stored  in  specified  file. 

program 

e.g.  aicuz 

restore 

-replaces  current  list  with 
previous  list 

list  < category  1  >  <  category  2? 

-displays  keywords  associated 
with  contacts  in  current  list  for 
the  given  category  or  cate¬ 
gories.  (IMPORT  ANT :  if  more 
than  one  category  is  to  be 
specified,  they  should  be 
ordered  as  follows: 

< narrower?  < broader? 
eg.,  list  agency  sub-agency) 

peek  < category? 

-invokes  the  editor  on  a  copy  of 
system  file  which  contains  key¬ 
words  forgiven  category,  "q" 
returns  to  IICEP. 

show 

-displays  contact  number,  key¬ 
words,  name,  title,  address 
phone  number,  and  possibly 
comments  for  each  contact  in 
the  current  list 

help  <term> 

-prints  message  about  the 
given  term. 

help 

-prints  summary  of  commands 
and  references  to  more  specific 
topics. 

quit 

-exits  IICEP  program. 

The  first  command  sets  the  current  list  to  all  the  con¬ 
tacts  in  the  Department  of  Health,  Education,  and 
Welfare.  The  second  command  limits  that  list  to 
those  concerned  with  radiation.  The  "and”  com¬ 
mand  can  be  used  to  retrieve  a  specific  contact  For 
example,  “find  #234”  "and  #678”  bring  the  con¬ 
tact  numbers  234  and  678  to  the  current  list. 


3.  "or” 

The  “or”  command  augments  the  current  list  to 
include  the  contacts  associated  with  a  given  key¬ 
word,  and  can  be  used  to  retrieve  a  specific  contact 
For  example,  suppose  a  user  types 

"find  us” 
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“or  alabama” 

The  first  command  sets  the  current  list  to  include  all 
contacts  having  national  jurisdiction.  The  second 
command  expands  this  list  to  include  contacts  with 
jurisdiction  only  in  Alabama  and  the  Federal  gov¬ 
ernment.  At  this  point,  the  user  might  wish  to 
further  modify  the  list,  for  example,  by  typing 

“and  radiation" 

The  three  commands  create  a  list  of  all  contacts  as¬ 
sociated  with  radiation  in  Alabama. 

4.  “except” 

The  “except”  command,  which  modifies  the 
current  list  by  excluding  contacts  associated  with  the 
given  keyword,  can  be  used  to  exclude  specific  con¬ 
tacts.  For  example, 

“find  radiation” 

“except  hew” 

establishes  a  list  of  contacts — other  than  those  in 
“hew” — associated  with  radiation.  As  the  selection 
commands  narrow  the  current  list  of  contacts,  the 
HCEP  program  reports  the  number  of  contacts  in 
the  list.  When  this  number  is  small  enough,  the  user 
may  use  the  “show”  command  to  see  the  actual  con¬ 
tact  data.  This  command  is  invoked  by  simply  typing 
“show”  at  the  keyboard.  For  each  contact  in  the  list, 
the  contact  number,  keywords,  name,  title,  address, 
phone  number,  and  any  comments  are  displayed  on 
the  terminal.  The  contact  numbers  displayed  by  the 
“show”  command  can  be  used  as  keywords  with  any 
of  the  selection  commands.  For  example, 

"find  alabama” 

“show” 


“except  #  435” 

“except  #  932” 

might  be  used  to  eliminate  contacts  that  are  not  of 
interest 


Sava  and  Restore  Commands 

Once  the  user  has  narrowed  contacts  down  to 
those  of  interest,  he/she  may  wish  to  save  this  list  for 
future  reference.  This  can  be  done  with  the  “save” 
command.  For  example,  if  the  user  types 

“save  testfile” 

the  current  list  is  written  to  a  file  named  “testfile.” 
The  file  name  can  be  any  character  string  up  to  14 
characters  long.  Lists  saved  in  this  way  can  be  re¬ 
covered  later  by  typing 

“restore  <filename>” 

For  example, 

“restore  testfile” 

would  recover  the  list  saved  by  the  “save  testfile” 
command.  The  “restore”  command  can  also  be  used 
to  recover  from  errors  made  during  the  selection 
process.  The  “restore”  command  used  without  any 
filename  causes  the  previous  list  of  contacts  to  be  re¬ 
stored  as  the  current  list.  Suppose  a  user  types 

“find  texas” 

“and  alabama” 

“restore” 

The  result  of  this  series  of  commands  is  a  current  list 
of  all  contacts  associated  with  “texas"  and  “ala¬ 
bama.”  Since  these  resulted  in  a  null  set,  the  “re¬ 
store”  command  reestablished  only  the  set  of 
"texas”  contacts  without  reestablishing  the  entire 
search. 

List  and  Peek  Commands 

The  selection  commands  described  earlier  are  use¬ 
ful  only  if  the  user  knows  which  keywords  to  use.  For 
example,  “Bureau  of  Census”  is  a  keyword,  but 
"Census  Bureau”  is  not.  Therefore,  two  additional 
commands  have  been  provided  to  furnish  infor¬ 
mation  on  keywords.  The  “list”  command  displays 
all  the  keywords  from  a  given  category  that  apply  to 
the  current  list  of  contacts.  The  number  of  contacts 
in  the  current  list  which  corresponds  to  a  given  key¬ 
word  is  displayed  alongside  that  keyword.  For 
example, 

“find  radiation” 

“list  agency" 


displays  all  the  agencies  which  have  contacts  con¬ 
cerned  with  radiation. 

DOC  (1) 

EPA  (5) 

ERD  O) 

HEW  (1) 

NRC  (21) 

Each  of  these  agencies  is  a  “keyword”  associated 
with  the  subtopic  “radiation.”  If  the  selection  com¬ 
mands  have  been  used  to  modify  the  current  list 
of  contacts, 

“find  all” 

can  be  used  to  set  the  current  list  to  contain  ail  the 
contacts  in  the  data  base.  Thus, 

“find  all” 

“list  agency” 

produces  a  list  of  all  agencies  in  the  data  base.  The 
“list”  command  can  be  invoked  with  more  than  one 
category  name.  If  the  user  types 

“list  sub-agency  agency” 

the  program  responds  with  a  list  of  subagencies  and 
the  agencies  to  which  they  belong.  In  general,  this 
feature  should  be  used  only  when  the  first  category  is 
a  subcategory  of  each  subsequent  category.  The  pro¬ 
gram  will  respond  in  any  case,  but  the  information 
generated  may  be  misleading.  Suppose  the  user 
types 

“list  state  agency” 

In  this  case,  the  first  category  is  not  a  subcategory  of 
the  second,  and  when  the  program  responds  with 

“alabama" 

“agency:  doa” 

it  only  means  that  "doa"  is  one  of  the  agencies 
having  a  contact  where  Alabama  is  a  keyword. 

The  other  command  designed  to  provide  infor¬ 
mation  on  keywords  is  the  "peek"  command.  This 
command  invokes  the  operating  system’s  editor  on  a 
copy  of  the  IICEP  system  keyword  file  for  a  given 


category.  As  an  example, 

“peek  sub-topic” 

invokes  the  editor  on  the  file  of  "sub-topic”  key¬ 
words.  Then, 

“g/waste/p” 

prints  a  list  of  all  keyword  terms  which  contain  the 
word  "waste.”  Finally, 

“q” 

quits  the  editor  session  and  returns  the  user  to  the 
IICEP  program. 

Help  and  Quit  Commands 

A  "help”  command  has  been  provided  to  help 
acclimate  the  user  to  using  the  system.  If  the  user 
simply  types 

“help” 

the  system  responds  with  a  message  that  briefly 
summarizes  the  IICEP  commands.  For  further 
information,  the  user  can  type 

“help  <term>” 

and  the  system  will  respond  with  a  message  provid¬ 
ing  information  about  the  given  term.  For  example, 

"help  list” 

gives  a  brief  message  concerning  the  use  of  the  list 
command.  Many  help  messages  refer  to  other  terms 
that  can  be  used  with  the  help  command.  By  follow¬ 
ing  these  chains  of  reference  with  the  “help”  com¬ 
mand,  many  questions  can  be  answered  without  the 
aid  of  a  manual.  The  last  command  that  a  user  must 
know  is  the  “quit"  command.  When  the  user  types 

“quit" 

the  IICEP  session  is  ended. 


W  SUMMARY  AND  RECOMMENDATIONS 

This  report  has  documented  the  organization  and 
command  structure  of  a  pilot  IICEP  computerized 
system  operating  in  interactive  mode  as  a  subsystem 


of  ETIS.  The  study  also  identified  difficulties  in 
implementing  UCEP.  The  most  serious  problem 
with  both  the  1ICEP  directory  and  system  is  the  task 
of  updating  the  information.  The  jurisdictions  and 
duties  of  the  various  identified  agencies  are  nebulous 
and  change  constantly. 

Nonetheless,  the  IICEP  program  could  be  a  valu¬ 
able  source  of  information  to  Air  Force  planners.  If 
the  information  were  maintained  in  a  central  data 
base  accessible  by  remote  terminal  and  capable  of 
supporting  interactive  usage,  the  system  could  be 
updated  constantly  with  minimal  effort,  and  users 
could  access  it  from  the  central  source  (the  inter¬ 
active  system).  Incorporating  IICEP  into  ETIS 
would  allow  the  user  to  access  lICEP's  information 
without  having  to  learn  to  operate  a  new  system. 

It  is  recommended  that  selected  potential  users 
(the  Air  Force  Regional  Civil  Engineering  offices,  for 
example)  use  excerpts  from  this  document  to 
analyze  the  usefulness  of  the  software  produced 
under  this  research  and  development  effort  The 
suggestions  resulting  from  such  a  review  could  form 
the  basis  for  modifying  and  improving  the  system. 

Furthermore,  an  update  procedure  could  be  set  up 
as  part  of  an  effort  already  contemplated  for  the 
ETIS  operational  component  now  being  established 
for  Army  users.  The  additional  update  of  the  IICEP 
data  could  be  integrated  into  existing  procedures  for 
CELDS  and  EIFS  with  little  increase  in  long-term 
operational  costs. 
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APPENDIX  A: 


SAMPLE  DATA  FROM  IICEP  DIRECTORY 

STANDARD  FEDERAL  REGION  V 

A.  Illinois 
1.  General 


ILLINOIS 

General 

Environmental  Quality 


a.  Agency 

Environmental  Protection  Agency 
2200  Churchill  Road 
Springfield  62706 

(217)782-3397 

Richard  H.  Briceland,  Director 

Function — The  Agency  coordinates  programs  for  air  quality,  noise,  solid  waste  and  water  quality. 
State  Laws — The  Agency  is  established  by  S.L.,  Chapter  III‘/i,  Section  1004. 

Federal  Lawa — (See  functional  headings.) 


ILLINOIS 

General 

A-95  Clearinghouse 


b.  Agency 

Bureau  of  the  Budget 
103  State  House 
Springfield  62706 

(217)782-4520 

Leonard  Schaeffer,  Director 

Function — The  Bureau  is  responsible  for  reviewing  federally  financed  projects  in  accordance  with 
A-95  procedures. 

Stale  Laws — None  identified. 

Federal  Laws — The  Bureau  coordinates  state  review  of  federally  assisted  projects  pursuant  to  OMB 
Circular  No.  A-95. 
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ILLINOIS 

General 

Transportation 

c.  Agency 

Department  of  Transportation 
2300  S.  Dirksen  Parkway 
Springfield  62706 

(217)782-5597 

Langhome  Bond,  Secretary 

Function — The  Department  plans  and  develops  state  transportation  systems.  It  develops  and  imple¬ 
ments  mass  transit  programs,  plans  airports,  promotes  transportation  safety  and  constructs  and  maintains 
highways. 

State  Laws — The  Department  is  established  by  the  Civil  Administrative  Code  of  1917. 

Federal  Laws — (See  functional  headings.) 

2.  Air  Resources 

ILLINOIS 
Air  Resources 
General 

a.  Agency 

Division  of  Air  Pollution  Control 
Environmental  Protection  Agency 
2200  Churchill  Road 
Springfield  62706 

(217)782-6514 

John  Moore,  Division  Director 

Function — The  Division  administers  and  enforces  state  air  pollution  laws  and  reviews  applications 
for  permits. 

State  Laws — The  Division  is  established  under  the  Environmental  Protection  Act  of  1970.  as 
amended.  The  Division  operates  under  the  following  laws  and  regulations:  Stationary  Sources  Standards,  1972, 
as  amended;  Air  Quality  Standards,  1973;  Episodes  Regulations,  1976;  Open  Burning  Regulations.  1971,  as 
amended;  and  Odors  Regulations,  1972, 

Function — The  Division  administers  state  responsibilities  under  the  Clean  Air  Act. 


ILLINOIS 
Air  Resources 
General 


b.  Agency 

Pollution  Control  Board 
309  West  Washington  Street 
Chicago  60606 

(312)  793-3620 

Jacob  D.  Dumelle,  Board  Chairman 

Function — The  Board  establishes  air  quality  standards  and  regulations. 

State  Laws — The  Board  is  established  under  the  Environmental  Protection  Act  of  1970,  as  amended. 
The  Board  operates  under  the  following  laws  and  regulations:  General  Air  Pollution  Regulations,  1972,  as 
amended;  Stationary  Sources  Standards,  1972,  as  amended;  Air  Quality  Standards,  1973;  Episodes  Regu¬ 
lations,  1976;  Open  Burning  Regulations,  1971,  as  amended;  and  Odors  Regulations,  1972. 

Federal  Law* — The  Board  administers  state  responsibilities  under  the  Clean  Air  Act. 

3.  Energy 

ILLINOIS 

Energy 

General 

a.  Agency 

Division  of  Energy 

Department  of  Business  and  Economic  Development 
222  South  College  Avenue 
Springfield  62702 

(217)782-5784 

Sidney  M.  Marder,  Director 

Function — The  Division  conducts  energy  conservation  programs  and  coordinates  energy  research 
within  the  state.  The  Division  administers  fuel  allocation  programs. 

State  Laws — The  Division  is  organized  under  78- 1125,  S.L.  1 974. 

Federal  Laws — The  Division  administers  energy  conservation  plans  under  the  Federal  Energy 
Administration  Act  of  1974. 
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ft 


ILLINOIS 

Energy 

General 


b.  Agency 

Interstate  Oil  Compact  Commission 
(See  Interstate  Agency  Appendix  for  details.) 
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APPENDIX  B: 


Then  the  “hash”  program  is  invoked  by 


SOFTWARE  DESCRIPTIONS 
Hashing  Subsystem 

The  hashing  subsystem  provides  a  means  of  look¬ 
ing  up  character  strings  in  files  of  keywords.  If  a 
string  is  present  in  these  titles,  the  lookup  mecha¬ 
nism  returns  identifying  data,  specifying: 

1.  The  number  of  keyword  file  in  which  the  string 
is  found 

2.  The  keyword’s  number  within  each  file 

3.  The  byte  offset  of  the  keyword  within  each  file. 

The  keyword  files  are  specially  formatted  text 
files  which  are  named  with  some  fixed  prefix  such  as 
“key.”  followed  by  a  numeric  string.  Generally,  it  is 
best  to  organize  keywords  into  coherent  groups  ac¬ 
cording  to  file  numbers  associated  with  each  key¬ 
word  type.  For  example,  in  the  IICEP  system,  one 
category  consists  of  state  names,  while  another 
consists  of  agency  names,  so  these  categories  should 
have  different  file  numbers.  In  the  files  themselves, 
keywords  are  marked  by  a  “  #  ”  character  in  column 
1,  followed  by  the  keyword  string,  followed  by  a 
terminating  character.  Characters  following  the 
character  and  characters  on  subsequent  lines 
are  not  part  of  the  keyword  string.  This  provides 
space  for  comments  about  the  keyword.  The  next 
”  character  found  in  column  1  marks  the  end  of 
the  comments  and  the  beginning  of  a  new  keywoul 

Thus,  the  “hash”  program  sets  up  a  hashtable 
which  allows  keyword  data  to  be  retrieved,  but  in 
order  to  use  the  “hash”  program,  another  file  must 
be  prepared  which  itself  names  the  keyword  files. 
This  file  simply  lists  one  keyword  file  name  per  line; 
the  following  is  a  current  list  of  IICEP  keyword  files. 


key.O 

key.5 

key.  1 

key.6 

key.  2 

key.  7 

key.  3 

key.4 

"hash  < file  list  >” 

where  “<file  list  >  ”  is  the  name  of  the  file  discussed 
above.  The  keyword  files  in  the  <file  list  >  file  are 
opened  and  read  in  order;  each  is  scanned  for  key¬ 
words,  and  identifying  data  on  each  keyword  are 
written  to  a  temporary  file.  This  temporary  file  is  an 
array  of  struct  elements  defined  as  follows: 

struct  marker  /*  word  marker  structure  layout  */ 


int  file;  /*  keyword  file  number  */ 

int  idnum;  /*  rel  word  #  within  file  */ 

long  beginbyte;  /*  byte  offset  of  work  in  file  */ 

int  hashv[3];  /*  hash  value  */ 


Next,  the  “hash”  program  calls  a  subroutine 
named  “maketable,”  which  rearranges  the  contents 
of  the  temporary  file  into  a  hashtable.  The  “hash- 
table”  file  is  also  an  array  of  struct  elements  defined 
as  above;  it  is  about  half-empty  at  this  point  in  the 
“hash”  program,  with  the  empty  slots  marked  by 
setting  the  “file”  field  equal  to  -1.  Slots  occupied 
by  struct  elements  corresponding  to  keywords  from 
the  keyword  files  are  positioned  as  follows: 

1.  The  total  number  of  slots  in  the  “hashtable” 
file  minus  a  maximum  overflow  allowance  defines 
a  modulus. 

2.  The  hash  value  included  in  a  word  marker 
struct  is  used  to  define  a  long  integer. 

3.  The  remainder  of  the  long  integer  divided  by 
the  modulus  yields  a  trial  position  in  the  hashtable. 

4.  The  marker  struct  element  is  inserted  into  the 
first  empty  slot  following  the  trial  position. 

The  reader  should  consult  the  “maketable”  sub¬ 
routine  source  code  (Appendix  C)  to  see  the  actual 
mechanics  of  the  temporary  file  of  word  markers 
reorganization  into  the  “hashtable”  file. 

Once  the  “hashtable"  file  has  been  created,  the 
“lookup”  subroutine  can  be  called  from  a  ”C“  pro¬ 
gram  to  retrieve  identifying  data  on  any  character 
string.  The  “lookup"  routine  computes  a  trial 
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position  in  the  hashtable  just  as  in  steps  1 .  2,  and  3 
above.  Then  the  hashtable  is  searched  until  the  first 
empty  slot  is  encountered.  The  marker  struct  ele¬ 
ments  matching  the  given  keyword  are  passed  back 
to  the  calling  procedure. 

Satup  Subsystem 

The  “setup”  program  scans  files  of  IICEP  data  on 
contacts  to  prepare  for  retrieval  of  this  data  by  the 
IICEP  information  retrieval  program.  The  “setup” 
program  is  invoked  by  typing 

“setup  <  file  list  >” 

The  argument  “  <  file  list  >”  is  a  file  which  names 
the  IICEP  files  containing  contact  data.  These 
names  should  be  listed  in  the  “<file  list  >”  file, 
one  per  line:  for  example, 

pc.O 

pc.62 

pc.  125 

pc.181 

pc.241 

pc.309 

pc.  377 

pc.444 

pc.518 

pc.595 

pc.678 

pc.  764 

pc.841 

pc.937 

The  files  of  contact  data  are  named  “pc.x,”  where 
“x”  stands  for  the  contact  number  of  the  first  con¬ 
tact  in  the  file.  It  is  important  that  the  files  listed  in 
“pclist”  be  ordered  so  that  contacts  are  encountered 
in  strictly  increasing  order.  Each  file  contains  data 


on  one  or  more  contacts,  and  each  contact  has  the 
format  given  below: 

#  < contact  number  > 

<  category  number  >  :  <  keyword  string  > 

< category  number  >  :  <  keyword  string  > 


<  category  number  >  :  <  keyword  string  > 

& 

<  text  data,  including  name,  title,  address,  phone, 
comments  > 

In  the  format  description  above,  the  < contact 
number  >  field  is  a  numeric  string  giving  the 
number  of  the  particular  contact  Contacts  are 
numbered  beginning  with  zero  and  must  be  ar¬ 
ranged  in  increasing  order.  Gaps  are  permissible, 
but  tend  to  slow  down  the  retrieval  of  data. 

In  the  next  section,  each  line  gives  a  keyword 
string  and  the  category  (e.g.,  "agency,”  “region”)  to 
which  it  belongs.  Presumably,  the  given  string  will 
be  found  in  the  keyword  file  numbered  with  the 
given  category  number.  For  example,  the  string  for 
category  two  will  be  found  in  the  keyword  file  for 
category  two. 

The  latter  section  must  be  terminated  by  a  line 
consisting  of  a  single  character. 

Succeeding  lines  contain  text  data  about  the  con¬ 
tact;  the  next  line  containing  a  “#”  character  in 
the  first  column  marks  the  beginning  of  a  new 
contact. 

The  following  is  an  example  of  data  for  a  specific 
contact: 

#61 

0:  doc 
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I :  office  of  the  secretary 


location  consists  of 


4:  socioeconomics 

5:  economic  development 

3:  us 

& 

Jerry  Jasinowski,  Assistant  Secretary  for  Policy 
(8-77) 

14th  Street,  N.W. 

Washington,  DC  20203 

(202)377-2113 

The  “setup"  program  opens  and  reads  the  data 
files  in  the  order  they  are  listed  in  the  “pclist”  file. 
As  “setup”  scans  the  data,  messages  are  printed,  if 

1.  The  numbering  of  the  contacts  is  not  con¬ 
secutive. 

2.  A  keyword  is  not  present  in  the  alleged 
keyword  file. 

3.  The  line  ending  the  keyword  section  is 
missing. 

Under  any  of  these  conditions,  the  line  number  in 
the  file  is  printed  along  with  an  appropriate  mes¬ 
sage. 

As  the  “setup”  program  scans  the  data  files,  the 
keyword  data  are  digested  and  written  to  special 
files  that  will  later  be  employed  by  the  retrieval 
program.  For  each  keyword  category,  a  file  named 
“pckey.X”  is  created.  The  “X”  stands  for  the 
number  of  the  corresponding  keyword  file.  Each 
file  lists  the  id  numbers  of  the  keywords  pertaining 
to  the  contacts  in  the  data  files.  A  “pckey”  file  can 
be  thought  of  as  an  array  of  integers.  If  the  keyword 
id  numbers  for  a  given  contact  have  no  keywords 
from  a  given  category,  or  if  there  is  a  gap  in  the 
contact  numbers,  then  the  —  1  entry  is  still  present 
to  signify  an  empty  list  of  keywords. 

The  “setup”  program  also  creates  an  index  file  as 
it  scans  the  contact  data.  Each  entry  in  the  index  file 
contains  the  location  of  a  given  contact  This 


1.  The  number  of  the  “pc”  file  in  which  the  con¬ 
tact  occurs 

2.  The  byte  offset  of  the  beginning  of  the  contact 

3.  The  byte  offset  of  the  text  data  for  the  contact. 

If  there  is  a  gap  in  the  numbering  of  the  contacts, 
the  missing  entries  in  the  index  are  marked  with  a 
—  1  in  each  of  the  above  three  fields. 

The  Retrieval  Program 

When  the  “hash”  and  “setup”  programs  have 
been  successfully  run,  the  retrieval  program  “iicep” 
can  be  used.  A  complete  description  of  the  retrieval 
commands  can  be  found  in  Chapter  4.  The  following 
discussion  focuses  both  on  the  files  required  by  the 
“iicep”  program  and  on  their  functions.  Five 
families  of  data  files  are  used  by  the  “iicep”  pro¬ 
gram: 

1.  The  “key.”  files  containing  keywords  and 
comments 

2.  The  “hashtable”  of  pointers  to  the  “key.”  files 

3.  The  “pc.”  files  of  textual  contact  data 

4.  The  “pcndx”  file  indexing  the  “pc.”  files 

5.  The  “pckey”  files  of  keyword  id  numbers. 

When  the  “iicep”  program  in  invoked,  a  sub¬ 
routine  named  “initlist”  is  called  to  construct  a 
list  of  all  the  contacts  in  the  data  base.  This  is  done 
by  reading  the  “pcndx”  file  and  noting  those  entries 
not  marked  as  being  empty.  Thus,  gaps  in  the 
sequence  of  contacts  are  detected  and  left  out  of  the 
list  of  contact  numbers.  The  list  of  contact  numbers 
is  represented  as  an  array  of  integer  entries  and 
written  to  a  disk  file.  An  entry  of  —  1  marks  the  end 
of  the  list 

The  selection  commands  “find,”  “and,”  “or,”  and 
“except”  modify  this  list.  Each  of  these  commands 
takes  a  keyword  as  an  argument.  The  hashing 
lookup  mechanism  converts  the  keyword  string  into 
data  specifying  the  appropriate  keyword  category 
and  id  number  within  that  category.  Next,  the 
appropriate  “pckey.”  file  is  scanned  by  the  “keypcs” 
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routine  to  list  those  contact  numbers  in  which  the 
given  keyword  appears.  Finally,  the  “bool”  sub¬ 
routine  is  called  to  perform  the  appropriate  logical 
operation  on  this  list  of  contact  numbers  and  the 
previous  list  of  contact  numbers. 

The  “list”  command  scans  the  current  list  of 
contact  numbers  and  the  appropriate  “pckey.”  file 
to  determine  which  keyword  id  numbers  from  a 
given  category  are  associated  with  the  contacts  in 
the  current  list  The  result  is  a  list  of  keyword  id 
numbers  and  the  number  of  contacts  in  which  they 
appeared.  Also  listed  is  the  number  of  a  specific 
contact  and  the  location  within  that  contact  where 
the  keyword  appeared.  When  this  list  is  completed, 
the  “pcndx”  file  is  used  to  locate  the  contacts  where 
the  keywords  are  listed.  The  “pc.”  files  are  then 


opened  and  read  in  order  to  retrieve  the  actual  key¬ 
word  strings  so  that  they  can  be  printed  to  the  user's 
terminal. 

The  “show”  command  runs  through  the  current 
list  of  contact  numbers  and  displays  the  data  for 
each  contact  This  is  done  by  finding  the  location  of 
the  contact  data  in  the  “pcndx”  file  and  then  read¬ 
ing  the  data  from  the  appropriate  “pc.”  file. 

The  “help"  command  uses  the  hashing  lookup 
mechanism  to  convert  a  character  string  into  data 
specifying  the  category  number  and  byte  offset  of 
the  string  within  the  given  keyword  file.  The  keyword 
file  is  then  read,  and  any  comments  following  the 
keyword  string  in  that  file  are  displayed  on  the 
terminal. 
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APPENDIX  C: 


SOURCE CODE 
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1 

/*  this  f i  le 

is  included  by  both  iicep.c 

2 

T 

/»  it  defines 

command  numbers 

for  switch 

J 

4 

•  de  f  i  ne 

HMD 

0 

5 

•define 

AND 

1 

6 

•  de  fine 

-R 

2 

7 

•  de  fine 

tXCtPT 

5 

•; 

•  de  fine 

SAVE 

4 

•define 

RESTORE 

5 

n 

•define 

SHOW 

6 

1 1 

•define 

UU1T 

7 

12 

•do f i ne 

PEEK 

8 

13 

•define 

HELP 

9 

14 

•  de  fine 

LIST 

1C 

and  select. c 
statements 
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1 

//define 

KEYNAME 

7 

tide  fine 

HASHTBL 

3 

flde  f ine 

FCKEY 

4 

tide  f  i  ne 

PCNOX 

i 

z/de  f  ine 

PC 

f> 

7 

,1 

9 

/Me  fine 

MJMTYFS 

//define 

messac.es 

V'l 

11 

tide  1  ine 

ALL 

■’/usr/tmp/iieep/data/key." 
,‘/osr/tmp/iitep/r»ference/has^>tatl.e•• 
“/usr/twp/iicop/reference/pckey.” 
“/usr/tup/i icep/referencc/pcncj" 
'•/usr/tmp/i  icep/data/pc.” 

7 

7 

"all" 
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14:09  1979  structdefs.i 

Page 

1 

1 

j 

#de  t ine 

bUFRSIZ 

256 

f  * 

struct 

keybuf r 

5 

< 

•  6 

int  descrip; 

7* 

file  descriptor 

*/ 

7 

int  ‘next; 

7* 

next  empty  slot  in  bufr 

»/ 

3 

int  ‘endcufr,’ 

7* 

marks  end  of  bgfr 

*/ 

1 

1 

9 

0 

1 

>; 

int  but rCbUfRSlZl; 

7* 

buffer  for  keyword  id  numters 

*/ 

1 

1 

1 

2 

3 

4 

struct 

{ 

marker 

/* 

word 

marker  structure  layout  */ 

1 

5 

int 

file; 

/* 

keyword 

file  number  *7 

1 

6 

i  nt 

i enum ; 

/* 

ret 

word  fl  within  file  »  / 

1 

; 

long  beninnyte; 

/« 

byte 

offset  of  wore  in  file  »/ 

1 

1 

2 

fc 

9 

c 

int 

>; 

hashvC33; 

/» 

hash 

value  »/ 

2 

? 

2 

1 

2 

j 

struct 

get Ihuf 

/* 

for  buffered  input  by  line 

*7 

2 

A 

int 

f i Ides; 

7  » 

tile  oescriptor  of  the  given  file 

*/ 

2 

3 

int 

n  l  e  1 1 ; 

7  * 

number  of  chars  left  in  buffer 

•  7 

2 

6 

char  >nextp; 

/* 

pointer  to  next  char  in  buffer 

•  7 

2 

2 

2 

i 

7 

a 

9 

7 

char  but  f  1 5 1 23; 

); 

/» 

tor  buffered  reads 

«/ 

3 

3 

3 

3 

< 

1 

2 

3 

tf  de  f i ne 

NOXSU 

256 

3 1 

3 

7 

5 

h 

struct 

{ 

nd» 

J 

3 

7 

int  tiler.um; 

7* 

number  of  file  where  entry  occurs 

•  7 

3 

3 

lung  key l i ne  s  ; 

7* 

byte  offset  of  keyline  section 

*/ 

3 

4 

4 

9 

0 

>; 

long  datelines; 

/» 

byte  offset  of  data  section 

»/ 

4 

4 

4 

2 

3 

4 

struct 

{ 

ndxbu  f r 

4 

5 

int  fidndx; 

/* 

descriptor  of  ndx  tile 

*/ 

A 

6 

struct  ndx  *nextndx 

0 

7* 

next  open  slot  in  buffer 

*/ 

A 

7 

struct  nu»  »tndndx; 

7  * 

marks  end  of  buffer 

*/ 

A 

A 

c 

8 

9 

); 

struct  ndx  but nd xCN DkS 1 Z 3; 

/•  buffer  for  index  entries 

•  7 

J 

5 

5 

5 

u 

1 

2 

3 

struct 

r 

keycheck 

5 

A 

int  keycount; 

/•  number  of  occurences 

*7 

5 

5 

int  penu*; 

/*  id  of  pc  where  found 

*7 

5! 

6 

int  keynum; 

7*  number  of  key  in  pc  keylines 

*/ 

! 

! 

! 

i  .•* «  ....*.  ~  ,*  •»  ••  •  —  - . « .  *  •  •  •*  •*  •  ••  * . . . 


Jul  6  14:09  1979  s t ructde ts . i  Pag*  2 


i 

! 


5  7 
5P 
5* 
60 
61 
62 

6  5 
64 
6  5 
66 
61 

6  A 
6? 

7  . 

71 

72 
75 

74 

75 


>; 


struct  keymarker 


X 

int  keytype; 

/* 

category  of  the  keyword 

*/ 

>; 

cnar  *keystring; 

/• 

points  to  the  keywcre  string 

*/ 

//de  fine 

MAXKEYS 

5  C 

/  * 

max  keys  Dtr  single  pc 

»/ 

^define 

MAX  CHARS 

1C24 

/• 

rax  chars  in  all  keys  per  pc 

*/ 

struct 

keydata 

- 

{ 

int 

totkeys; 

/♦ 

number  of  keys  in  a  pc 

‘  7 

struct  keymarker  keyptrCMAXkEYSJ; 

/* 

point  to  all  keys  for  a  pc 

*/ 

char  keynuftMAXCHARS]* 

>; 

/* 

holds  keystrings  fcr  a  pc 

•1 
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iicep  (  main  program  ) 


FUNCTION: 


Implement  the  commands  of  the  1ICEP  system. 


ALbORITHM: 


The  program  begins  by  performing  certain  system  ini t i a l i z at i on  tasks 
In  particular*  " i am < ) "  is  called  to  select  a  unique  name  lor  the 
process*  and  scratch  files  are  created.  The  scratch  files  are  used 
fur  listing  the  current  and  previous  lists  of  contacts  ana  they  are 
initialized  to  list  all  the  contacts  in  the  data  base. 

when  the  above  operations  are  concluded*  the  program  enters  the 
main  command  loop  where  the  user  is  prompted  to  enter  a  command  and 
control  is  transfered  to  the  sub-routine  appropriate  to  executing 
that  command. 


CALLS: 


iamO 
cor  cat () 
init  list  t) 
r-spO 
ci:py() 
ex  ecute  < ) 
t  ablcO 
se  lect  (  ) 

Sove  O 
restored 
show () 
p  rek  O 
helpO 
keyword ( ) 
tistO 

Also*  Unix  routines: 


printf () 
exit  C) 
signalO 
c  reat  < I 
perror O 
openO 
setexitO 
uni  ink < ) 


HISTORY: 


written  by  Oan  Putnam  -  spring  1979. 


•••»  •••  • 
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57 

58 

*  *  *  A 

*  *  A 

59 

6C 

61 

/(include  "s t rue t de f s  .  i " 

/ » 

62 

//include  "coir.mande f  s  .  i " 

/* 

6  3 

//include  "k eyname s  .  i " 

64 

//include  "params.i” 

7* 

65 

66 

char 

•  *commtblC3  7*  command  names/ 

67 

l 

6b 

"find"/ 

69 

“und"/ 

?C 

Mcr% 

71 

"except”/ 

72 

dve'S 

75 

"restore"/ 

76 

"show"/ 

75 

"qui  t“# 

76 

"peek"/ 

77 

"help". 

78 

"list"/ 

79 

0/ 

8? 

>; 

81 

?2 

struct  qetlhuf  bufin; 

/* 

83 

char 

l i ne 1 2563  7 

/* 

5  <• 

in  t 

count  7 

7* 

85 

86 

int 

f  id  sc r at chC 23 7 

/« 

87 

int 

phase  C; 

/* 

88 

69 

char 

•keyprefi*  KEYNAME; 

7* 

90 

91 

92 

93 

rr  a i  n <ar  gc,  argv ) 

9«* 

int 

ar*jc; 

95 

char 

•  *ar.:y  ; 

96 

< 

97 

int  r ‘setO; 

7  * 

98 

char  buffer[25637 

/* 

99 

char  commC2563; 

/‘ 

ICO 

char  ‘sre; 

/* 

1C1 

char  *dst7 

7* 

102 

char  mel 1 C37 

7* 

i  :3 

char  scratch[23ri53; 

7* 

1C4 

int  opcode; 

/♦ 

1C5 

int  quit  flag,' 

7* 

1C6 

int  nun; 

/* 

1C7 

struct  marker  »keyword(); 

/* 

1C8 

1C9 

11C 

s ignal (2/1)7 

7  «, 

111 

112 

/*  name  of  the  keyword  files 


to  handle  breaks 


command  number 


7*  ignore  interrupts 


«/ 
•  / 


*7 


*  7 
*7 
»/ 

«/ 

»/ 

*7 


*7 

•  7 
*7 

•  7 
*7 

•  / 
*7 
*7 
»/ 
•/ 
*7 


•/ 
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pr i nt i ("wel cone  to  the  IICEP  internation  retrieval  prcgra»\r")i 
print  * (“for  help*  type  'helo  iieep  commands • \n“) i 

/**»**«  create  scratch  files  */ 

/•*•*••  Ue  will  need  to  read  and  write  on  then*  so  close  and  reopen 


i  f  <  i  a<(M)  <  0) 

{ 

pr int f (“can  ‘  t  create  unique  name*  abort i ng \n ") ; 
e  x  i  t  O  ; 

> 

concatlme*  "Oscratch"*  scratehCC3); 
concatlme*  "1 s c r at ch“*  sc  ra  t  tht  1 3  )  ; 


f idscratchCOJ  =  creat  Iscrat cht03*  0666); 
f idscrat ch[ 13  =  c reat  ( $ c r at ch [ 1 3 *  0666); 


i  f  <  fidscratchCrO  <  0  ||  fidscratchll)  <  C  ) 

{ 

perror (“pans*  creat"); 
e* i t  ( )  ; 

} 

closeC  fidscrntchCO]  ); 
close!  f iuscratihCI)  ); 

f idscratchCOJ  =  openl  scratchCOJ*  2); 
f idsc rat chC  13  *  openl  scratchC13*  2); 

ifl  f  ids erat chC.3  <  u  ||  f  ioscratchl13  <  C  ) 

< 

nerro r ( "pairs*  open"); 
e*  i  t  O; 

> 


/**»»**  initialize  scratch  files  to  list  all  pcs 

nun  -  initlistl  f i d sc r a t cht 03  ); 

printf("1!d  contacts  in  current  listin''*  nun); 
copyfilel  f idscratchlO)*  f  i  ds c r a t eh  11 3  >; 


this  is  the  main  command  loop 


fortquitflag  =  0;  quitflag  ==  0;) 
{ 

sctexit  O; 
signal(2*  reset); 


»*• 


•  ••  .  1  I  »  «  •  •  «•••«•  •  ••  •  %•  ‘  •»«  ->»»•  ••  •  .  J  »  t,  .  >  ,  .. 
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169  pr in t f (“\n \nWha t  next?\n">; 

1  70 

171  resp(  buffer  )S  /*  get  user  response  */ 

1  72 

17?  src  =  bu  f f er J 

174  dst  =  buffer* 

175  copy<  4src»  8dst»  Or  si*eof(  buffer  ));  /*  omit  extra  blanks  *7 
17c 

177 

178  /******  See  if  user  wants  to  execute  a  Unix  coirand  »/ 

1  79 

13 j  if(  ‘buffer  =*••*  ) 

1»1  { 

182  execute (  buffer  ♦  1  ); 

183  continue;  /»  qo  back  to  top  of  command  loop  */ 

164  > 

185 

166 

187 

166  /»*»*»*  ccpy  characters  into  commano  string  */ 

189 

190 

191  src  =  buffer; 

192  dst  *  comm; 

193  cupy(  ?src/  ftdstr  1  •/  sizeofl  comm  )>; 

194 

195 

196  if<  (opcode  =  tablet  comm*  conmtbl))  **  -1  ) 

197  C 

14o  printf ("•Xs'  not  a  CommandWr  comm); 

199  continue; 

2Cb  ) 

201 

2-2  /**»»**  cop  y ( )  has  left  src  pointing  at  command  argument  strinn  •/ 

2C3 

204  swi  t  ch (  opcode  ) 

2C5  < 

206  /*♦»***  these  commands  select  the  current  pc  list  */ 

.  207 

208  case  FIND: 

2C9  case  AND: 

21."  case  OR: 

211  case  EXCEPT: 

212 

213  siqnaK  2»  1);  /*  iinore  interrupts  here  */ 

214 

215  selectt  opcode/  sre); 

216  i reak ; 

217 
213 

219  ease  SAVE: 

220  signal<2/1);  f*  icnore  interrupts  here  *7 

221  save(  src  ); 

222  break; 

223 

224 


irt  T.„  ■ 


■  ilSA 


•CaV^rfeUV. 
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225 

case  RESTORE : 

226 

signal!  2/  1);  /*  ignore  interrupts  here 

22? 

restore!  src  ); 

22S 

break; 

229 

230 

231 

case  SHOW: 

232 

233 

/»**•»*  don't  iinore  interrupts  here  */ 

234 

show !  f i d sc r a t ch C  phase  ]/  src); 

235 

oreak; 

236 

237 

23* 

c<»se  QUIT: 

259 

aui t  f l *  ?  =  1#  /*  tnis  will  jet  us  out  ot  loop 

24  ) 

break ; 

241 

242 

243 

case  PEEK: 

244 

peekt  src  ); 

245 

break# 

24 1 

247 

248 

case  HELP: 

249 

helplOr  keyword!  src  )  >;  /*  L  *  standard  output 

250 

break; 

251 

252 

253 

case  LIST: 

254 

list<  f idscratchCphase] r  src>» 

255 

break ; 

256 

25? 

25 1 

default : 

259 

printf!”,Xs'  is  not  yet  imp l tsen t ed\ n" ,  buffer); 

26  J 

t  reak ; 

261 

> 

262 

> 

* 

263 

264 

265 

uni  ink  < 

me  ) ; 

266 

uni  ink  ( 

scratched  >; 

26? 

uni  inn  < 

scratchlll  ); 

268 

) 

30 


I 
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1 

2 

3 

4 
3 
6 
7 
d 
9 

lit 
11 
12 
13 
1  4 

15 

16 

1  t 
IS 
19 

2  i 
21 
22 
23 
2* 

25 

26 
27 
2* 
2» 
3. 

31 

32 

33 

34 

35 

36 

37 
55 
37 
4-i 

41 

42 
4  5 
4  4 

45 

46 

47 
4<i 
49 
53 

51 

52 

53 

54 

55 

56 


* 

/  **  ** 

NAME : 


fjtdita ( ) 


FUNCTION: 


Read  the  keyword  lines  for  a  contact  into  a  "keydata"  struct 
so  that  they  can  be  more  easily  referenced. 

CALLING  SEQUENCE: 

i nt  pc i d 
i  nt  1  idjic 
long  offset 

struct  keydata  ‘pcdata 


PARAMETERS  : 

pc  i  d 


f  i  dpc 


o  f f set 
pcdata 


RETURf.S  : 


nothing  . 


Accession  number  of  the  point  of  contact  whose 
data  is  being  read. 

File  descriptor  of  the  contact  data  file  where  the 
data  for  the  given  pc  resides. 

Byte  offset  of  the  data  in  the  given  file. 

Points  to  the  structure  which  gets  the  key  cata 
to  be  read  from  the  file. 


ALGORITHM; 

The  routine  seeks  into  the  file  and  reads  the  header. 
If  these  operations  are  successful?  the  routine  enters 
a  loop  and  reads  the  keyword  lines  into  the  "keydata” 
struct  indicated  by  "pcdata". 


CALLS: 

seek  l  < ) 
qe  1 1  ( ) 
copy  < ) 

Also?  Uni*  routines: 
print  I  ( ) 

CALLED  BY: 


31 
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[ 


I 


\ 

i 


3? 

Sr.OU  (  ) 

5* 

list  () 

59 

60 

•:  1ST  OR  y : 

61 

62 

written  ty  Dan  Putnam 

-  spring  1979. 

63 

64 

*  *  *  * 

65 

66 

6  7 

t  ft 

^include  "st ructdef s . i“ 

7*  define  getlbuf  struct 

69 

7 

71 

72 

e-.:tdata(  pcid/  fidpc/  offset/ 

p  cdat  »> 

7  J 

int 

pc  i  d; 

7*  number  of  source  permit 

74 

int 

f iupe ; 

/*  file  descriptor  of  pc  data  file 

75 

long  offset; 

7*  byte  offset  of  data  for  oiven  pc 

76 

struct  keydata  *pcdata; 

/»  gets  lines  of  keyword  data 

77 

t 

78 

int  keynumber; 

/*  counts  number  of  keys  in  pc 

79 

struct  keymarker  ‘markptr; 

•  7*  points  thru  keyptrs  of  pcdata 

80 

char  *bufptr; 

7*  points  thru  keybuf  of  pcdata 

81 

char  *endptr; 

/•  points  off  end  of  keynuf 

82 

char  *src; 

/*  utility-  pointer  used  with  copyO 

83 

char  ‘dst; 

7*  utility  pointer  used  with  copyO 

84 

char  »end; 

7*  marks  end  of  rcdata  buffer 

85 

char  tagtIGQl; 

/»  tor  grabbing  t39  off  of  a  line 

86 

char  linet2563; 

7*  gets  line  lines  from  TetIO 

87 

int  nLytes/ 

/*  returned  from  getl 

8? 

struct  getlbuf  bufr; 

7*  used  by  getlO 

89 

91 

91 

92 

bufr.fildes  =  fidpc; 

93 

Lufr.nleft  -  0» 

94 

95 

i  f  <  of  fset  <0  ||  seekK 

f iopc /  offset)  <  0  > 

96 

< 

97 

printf ("can't  seek  to 

data  on  pc  "d\n"/  pcid); 

91 

return; 

99 

) 

ICO 

101 

1  i’2 

1C3 

if(  (nbytes  =  getl<  line/ 

Sbufr))  <=  l)  ) 

104 

< 

105 

prfntf ("can't  find  data  on  pc  XdW/  pcid); 

1C6 

return; 

1  C  7 

) 

103 

1C9 

110 

111 

keynumber  »  0; 

112 

fcufptr  -  pcdata  ->  keybuf; 

*7 


»/ 

*/ 

*/ 

*/ 
*/ 
*7 
*/ 
*7 
*7 
*7 
*/ 
*/ 
•  7 
*7 


/ 
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11  J 
114 

m 

116 

117 

118 
1  19 
120- 
1<1 
122 

123 

124 

12  5 
126 

127 

128 
12) 

1  30 

131 

132 

133 

134 
1  33 

136 

137 
13? 

1  39 
1  40 

141 

142 

143 

144 

145 

146 

147 

148  > 


•'jrkptr  =  pcoata  ->  keyptr; 

whilel  (noytes  =  getl<  line*  (tbufr))  >  C  ) 

< 

lineC  nbytes  -  1  3  *  C»  /•  replace  *\n'  by  null 


if<  l  ineCOJ  =  *  • k •  ) 

break*  /»  marks  eno  of  keywords 

src  =  line.' 
dst  -  tag) 

copyf  Xsrc*  Sdst*  *:'*  sireoff  tai  )); 

i  f  (  keyriumber  >  M»XKCYS  ) 

{ 

pr i n t t < "MAXK t V  limit  e x c eedec\ n" > S 
break 

> 


markptr  ->  keystriny  =  tufptr; 
markptr  ->  keytype  -  atoil  tag  ); 


if<  copylXsrc*  Kbufptr*  0*  Xlpcnata  ->  k eybu f [MAX CH AR S3  ) 
{ 

pr i n t f ( "MAxCHARS  limit  exce eoed\n") »' 
break  *' 

) 


k  eynumber ♦♦» 
m  j  rk  pt  r ♦ ♦ » 


j 


3 


*/ 


*  / 


] 


bu f  p t r )  <  C) 


pcdato  ->  totkeys  -  keynunber* 
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1 
2 

|  3 

|  4 

5 

'  6 

7 
;< 

9 

1C 

11 

12 

13 

14 

15 

16 

17 

18 
1? 
20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3  . 
31 
3? 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
SC 

51 

52 
55 

54 

55 

56 


« 

/  A  *  *  * 

NAME  : 


getndx ( ) 


function: 


Find  the  location  of  the  data  for  a  given  contact*  ana 
return  a  tile  descriptor  for  the  data  tile. 

CALLING  SEQUENCE: 

int  pcid 

struct  ndx  »pc_ptr 
int  getndx!) 

PARAMETERS: 

pcid  The  accession  number  of  the  contact  of  interest. 

pc_ptr  Points  to  the  inoex  struct  to  be  filled  in  with  the 

data  giving  the  location  of  the  given  contact.  ' 

RETURNS  : 


P  -turns  a  file  descriptor  of  the  contact  data  tile  cortaining 
tnc  given  contact. 

ALGORITHM: 

This  routine  may  be  interrupted  if  the  user  hits  the  "rub-out" 
kry.  If  this  happens*  the  index  file  ven’t  get  elosre.  To  ■ 
handle  this  problem*  the  descriptor  is  stored  in  a  stftic  variable. 
The  routine  begins  by  examining  this  variable  to  see  it  it  is 
non-zero.  If  so*  the  file  is  closed  and  the  descriptor  is  set  tc 
zero  to  mark  the  file  as  teim:  closeu. 

The  routine  next  oi ens  the  index  file  to  read  the  index  struct 
giving  the  location  data  for  the  given  contact.  Then*  the 
data  file  containing  the  given  contact  is  opened  anc  the 
file  descriptor  is  returned. 


CALLS: 


Various  Unix  routines. 

close!) 
seek!) 
read!) 
perror  < ) 

CALLED  OY : 

show  O 
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57  listt) 

5* 

59  HI  ST  ok »: 

60 

6 1  Adapted  from  the  "getndxt)"  routine  ol  the  pAt'S  system  -  spring  19  2  9. 


62 

61  »»******.***».**»»*•**»***»•*.•*****..*****.***»**.*»**»**••*«*******.«.**.*»./ 

6  4 
65 

c4  sinclude  ”s t rue t de f s  .  i  ”  /*  defines  pc  index  structure  *7 

67  (Hnctude  "paeans. i"  7*  defines  PCNDX  »/ 

PC 

64  getndxtpcid.  p  c  _  p  t  r  ) 

7  1  int  pcij;  7*  number  of  pc  that  we  want  *7 

71  struct  ndx*»>cptr;  7*  index  to  pc  that  we  want  *  / 

7  2  < 

7  3  charpcfileCSC).  /*  nife  of  pc  file  */ 

74  int  file.  /»  pc  file  nonber  where  pc  is  «/ 

75  long  offset  >’  /*  byte  offset  into  afile  «7 

76  int  fidpc;  7»  descriptor  of  pc  file  */ 


77  static  int  fidndx.’  /*  descriptor  for  pc  incex  file  »/ 

73 

74 

no 

81  /**»**»  make  sure  we  close  ole  tiles  before  using  *7 

82 

fcj  i f(  f idndx  1=0) 

84  { 

85  closet  fidndx  )» 

Ho  fidndx  =  0J  7*  and  mark  it  as  closed  *7 

87  > 

88 
89 
9  ‘ 

91 

92  ift  (fidndx  =  openC’CNDX.  0))  <  0  ) 

93  l 

94  perr  jr("  jetndi  can't  open  pendx  file’’); 

9  5  r*  turn!  -1  ); 

9c  > 

9? 

V f  offset  *  pc  i  til 

99  offset  »*  sizeoft  *pc_ptr  >» 

ICO  ill  see k  l  < f  i  ondx .  offset)  <  C  ) 

1  Cl  ( 

1C2  perrorC'getndx  can't  seek  into  pc  index”). 

ICi  return (-1)/ 

104  ) 

10  5 

134  ift  read ( f idndx  »  pc_ptr>  si z eof ( «pc . Pt r ) )  <  s i zeof ( »pc_pt r)  ) 

1C?  < 

1C8  print  f  ("can  '  t  read  pc  inaex  file\n”).‘ 

109  retornt  -1  )> 

110  > 

111  close  (  f  idndx  ) ; 

112  fidndx  =  C;  7*  mark  it  as  closed  *7 
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114  file  =  pe.ptr  ->  filenum;  /*  this  is  pe  file  number 

11b  concat  (pC/  locw  (0/  file)/  pcfile); 

116 

117 

11h  i  f  <  (fidpc  =  opentpefile/  0))  <  0  ) 

119  { 

120  pe  rror ( "uet  ndx  can’t  open  pe  file")/ 

121  J 

122 

123 

124  returnl  fidpc  >; 

125  > 
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1 

0 

2 

3 

h 

NAME  : 

6 

7 

init list  t> 

FUNCTION: 

9 

1C 

Initialize  a  file  to  list  all  the  contacts  in 

the  data  base. 

11 

12 

CALLING  SEQUENCE; 

13 

14 

i  n  t  f  i  0  ['  c 

1  5 

int  ini 1 1 is t  O 

16 

1  7 

PARAMETERS: 

i  n 

19 

fid pc  file  descriptor  of  the  output 

list  of  pc  accession 

20 

numbers  . 

21 

22 

RETURNS  : 

23 

24 

Returns  the  number  of  accession  numbers  in  the 

output  list. 

25 

26 

ALGORITHM : 

27 

28 

Thc  rcjtine  opens  the  index  file  and  reads  from  it  in  a  loop. 

29 

Empty  injex  structs  are  marked  by  baaing  their 

"  f  i  l f num"  f i e l os 

3i. 

set  to  -1.  whenever  e  struct  is  encountered  that  is  rot  empty* 

51 

the  corresponding  accession  number  is  inserted 

into  the  output 

32 

buffer. 

33 

34 

CALLS: 

35 

36 

Uni*  routines: 

3? 

5o 

S'-’ek  < ) 

39 

open ( ) 

4  C 

perrorO 

41 

e  x  i  t  ( ) 

42 

read  O 

43 

u  r  i  t  e  ( ) 

44 

c lose  () 

45 

46 

CALLED  fat: 

47 

48 

iieep  <  main  program  > 

49 

select ( ) 

50 

51 

HISTORY : 

52 

* 

53 

written  by  Dan  Putnam  -  spring  1979. 

54 

55 

56 

37 
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57 

' 

58 

••include  "st ructdefs  .1" 

59 

•(include  “params.i" 

6C 

61 

••define  PC  SI  I 

256 

62 

••define  NDXS1Z 

256 

63 

64 

initlistt  f idpc  ) 

65 

int 

f  i  dpc ; 

/*  descriptor  of  output  list  of  pc  ids 

*/ 

66 

< 

o7 

int  pchuf CPCSiZ j; 

/*  output  buffer  for  list  of  pc  ids 

»/ 

63 

int  *rcpt ri 

/*  points  thru  pcbuf 

*/ 

69 

int  f i dndx i 

/*  descriptor  of  input  inoex  file 

*/ 

7,'; 

struct  ndx  ndxbu f CNO XS 1 Z 3 ; 

/»  input  buffer  for  index  file 

*/ 

71 

struct  ndi  *ndxptr/ 

/*  points  thru  ndxbuf 

»/ 

7? 

register  int  n; 

/*  fast  loop  counter 

*/ 

73 

int  pcid; 

t*  id  of  current  pc  in  index  list 

*/ 

74 

int  countpc; 

/*  counts  nuirber  of  pc’s  in  irdex 

*/ 

75 

76 

77 

seekl  fidpc#  0/  0); 

/»  be  sure  to  start  at  beginning 

*/ 

7a 

79 

iff  ffidnox  =  openf  PCNDX* 

C  )>  <  0  > 

80 

t 

HI 

pe  rr  or  f "  i  n  i  1 1  i  s  t  can't 

open  pcndx"); 

8? 

exit  ( > ; 

83 

> 

84 

8  5 

pcid  =  o; 

/*  pc  ids  begin  with  zero 

*/ 

86 

countic  -  0; 

/»  no  pc's  sc  far 

*/ 

87 

pcptr  *  pcbuf ; 

F8 

-9 

whilet  <n  =  reauf  fidndx/  ndxbuf/  sireoff  ndxbuf  )  ))  >  C  ) 

9 : 

< 

91 

n  -1  sieeoff  *ndxfcuf  >; 

/*  n  =  #  of  ndx  entries 

*/ 

93 

9  3 

ndxptr  =  ndxbuf; 

94 

95 

do 

96 

c 

97 

iff  ndxptr**  ->  filenum  !  =  -1  ) 

93 

f 

99 

!  */ 

ICO 

101 

c  aunt pc ♦  ♦ « 

102 

•pcptr**  =  pcid 

i 

1C3 

104 

i  f  (  pcptr  >=  Opcbcf CPCSIZJ  ) 

105 

t 

1  06 

iff  writeffidpC/  pcbuf/  s i r eof f pcbuf ) )  <  si  r eof fpcbuf ) 

1C7 

f 

108 

per  r or  f 

"initlist  can't  write  pc  id's"); 

109 

exit  t>; 

110 

) 

111 

1 12 

pcptr  =  pcouf; 
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113  > 

114 

m  j 

116 

117  pc i dt ♦ ; 

118  > 

119  uhilel  --n  >; 

12  J  } 

121 
122 
125 

124  /»*»***  (tush  remaining  pc  id’s  in  p  >  c  b  u  t  *  / 

125 

126  »pcptr*t  -  -i;  _  /*  null  terrinate  list  •/ 

12? 

1  2  •<  r.  =  (pcptr  -  pcbuf)  *  2i 

129 

13C  if(  writel  fidpcr  pctuf/  n)  <  n  ) 

131  i 

132  perror  ("ini tlist  can’t  flush  pc  list”); 

133  exitO; 

134  } 

1  35 

136  closel  fidndx  )i 

137 

13?  returnt  countpc  )* 

139  > 


/*  bump  pcid  to  id  of  next  incex  entry  */ 
/»  count  doar.  or  number  ol  entries  */ 


39 
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keypcs ( ) 


f UNCTION: 


Make  a  list  of  the  contacts  associated  with  a  given  keyword. 


CALLING  SEQUENCE: 

int  type 
int  fidin 
int  fidout 
int  keypesf) 

PARAPET  EPS : 


f idout 


Id  number  of  the  given  keyword. 

file  descriptor  of  the  "pckey."  file  tor  the  category 
of  the  given  keyword. 

File  descriptor  for  the  output  file  which  will  list 
the  accession  numbers  of  the  contacts  associated 
with  the  given  keyword. 


RETUR'.S: 


P i turns  the  number  of  contacts  associated  with  the  given  keyword. 


ALGORITHM: 


The  routine  reads  throujh  the  "pckey."  file  given  by  the  "fidin" 
file  descriptor.  Each.  -1  entry  in  the  file  bumps  the  current 
pc  number  by  one  in  order  to  keep  track  of  which  pc  accession 
number  is  current.  When  an  entry  matches  the  "type"  argument* 
the  current  pc  accession  number  is  inserted  into  the  output 
buffer.  The  "previous"  variable  keens  track  of  the  last  accession 
number  to  be  put  into  the  output  list,  and  the  routine  checks  to 
be  sure  that  no  accession  number  is  inserted  twice.  This  step 
is  neccessary  in  case  a  keyword  has  been  entered  twice  in  the  same 
contact  in  the  data  base. 


Uni*  routines: 


seek  O 
readO 
writeO 


CALLED  BT: 
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57 

selectO 

58 

59 

HISTORY : 

60 

61 

written  :iy  Dan  Putnam  -  spring  1979. 

63 

*  *  * 

************************* 

*  •  *  i 

64 

65 

66 

^define  1NSIZ 

1C24  7  *  size  of  inrut  tuffer 

*/ 

67 

68 

Rdefine  OUTSIT 

256  7*  size  of  out  buffer 

*/ 

69 

? ; 

koypcsftype/fifinxf  idou  t ) 

71 

int 

type; 

7* 

locate  pc's  with  this  key 

*/ 

/2 

int 

f  i  d  in. 

7* 

descriptor  fcr  pc  key  file 

*7 

7  3 

int 

f  i  dnut ; 

/.* 

descriptor  for  qualified  pc  file 

•/ 

74 

< 

75 

76 

int  count; 

/* 

counts  nuirter  of  qualified  pc's 

*/ 

77 

int  inbuf Cl  NS  I ZJ; 

7* 

input  duffer  for  pc  key  file 

*7 

7s 

int  outbufCOUTSIZj; 

7  * 

output  buffer  for  qualified  pc's 

*/ 

7  7 

int  *outptr; 

7* 

points  to  next  open  slot  ir  cutbuf 

•7 

80 

int  pcid; 

7* 

current  pc  io  number 

•/ 

&1 

int  previous; 

/* 

id  number  of  last  pc  put  in  cutbuf 

*7 

87 

register  int  n ; 

7* 

tor  loop  counting  thru  pc  key  list 

*/ 

83 

register  int  *idptr; 

/* 

grabs  id  numbers  out  of  list 

*7 

84 

reg i s t er  int  idkey; 

/* 

equals  id  P  of  current  key  in  list 

*/ 

85 

66 

87 

count  =  0; 

«8 

pcid  =  o; 

89 

previous  =  -1; 

9  7 

outptr  a  outouf; 

91 

92 

s  e  e  k  ( f  i  d  i  n  ,  0,  C); 

7*  start  at  beginnirg 

*/ 

93 

see  k ( f i dou t  r  0#  0) ; 

/ •  start  at  teginninu 

«/ 

9  4 

9  5 

whilef  (n  =  readCfidin* 

inbuf  x 

1NSJ  Z  ♦  2))  >  f  ) 

9:i 

{ 

97 

n  =  /  ti  /*  n 

=  #  o  f 

entries  in  buffer 

*7 

93 

99 

idptr  -  inbuf; 

ICO 

1C1 

do 

1  02 

< 

1C  3 

it<  (idkey  =  ‘idptr**) 

-1  ) 

1C4 

pci d*+; 

ICS 

106 

else 

1C7 

< 

1C« 

i  f  C  idkey  -- 

type 

bS  pcid  >  previous  ) 

109 

< 

110 

/***•*» 

one 

!  *7 

111 

112 

count ♦ ♦; 
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113 

114 

115 

116 
117 
lie 

119 

120 
121 
122 

123 

124 

125 

126 
127 
12* 

129 

130 

131 

132  ) 


previous  =  peid;  /*  to  avoid  repetion 
♦outptr**  *  pcid* 


ifloutptr  >s  ? outbu t LOUT  SI  23 ) 

{ 

uriteCf  idout»outbufr(outptr 
out  pt  r  =  outbuf; 

> 

> 

> 

> 

whilel  *-n  )) 


J 

/»***»*  terminate  list  and  write  Out  */ 


outbuf)  • 


•outptr**  *  -1» 

wr i t e ( f idout routbuf » (outptr  -  outbuf)  *  2>» 
return(count)* 
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1 

2 

5 

4 

5 

6 
7 

V 

9 

ti¬ 

ll 

12 

13 

14 

15 

16 
1  7 
1« 
19 
2: 
21 
22 
25 

24 

25 

26 
27 
26 
2« 
3u 

51 

52 
33 
54 
35 

56 

57 
3s 
37 
4 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


* 

/  *  *  *  * 
NAME  : 


l ist  () 

FUNCTION: 

Implement  the  “list"  command  of  1ICEF. 

CALLING  SEQUENCE: 

intfiJpclist 
char  *ar  1 

PARAMETERS  : 

fidsplist  file  descriptor  of  the  current  list  of  contact 

accession  numbers. 

ar g  Points  to  string  containing  keyword  category  names 

that  ere  to  be  listed. 

RETURNS : 

noth i ng . 

ALGORITHM: 

The  list  command  can  be  interrupted  by  the  user  by  hitting  the 
"rubout"  key.  This  operation  can  leave  opened  files.  To  deal 
with  this  problem/  file  descriptors  are  stored  in  static  variablrs. 
The  routine  begins  by  examining  these  veriables  tc  see  if  they  are 
non-zern.  If  so/  the  files  are  closed  and  tne  descriptors  are 
set  to  zero  to  mark  the  files  as  being  closeo. 

The  next  operation  that  is  performed  is  to  parse  the  arcument 
strinj  given  by  "arq”.  The  string  is  broken  down  into  suh-strin-s 
delimited  by  blanks.  The  "keynames"  array  is  searchec  to  see 
if  these  sub-strings  are  indeed  valid  keyword  category  rames. 

If  SO/  the  index  in  the  array  which  matches  a  sub-strinc  is  savec 
to  identify  the  category. 

The  first  category  named  in  the  argument  string  drives  the  operation 
of  the  list  command. 

The  routine  loops  to  pick  up  the  keys  from  the  first  argument 
Citegcry  that  occur  in  the  current  list  of  contacts. 

This  is  accomplished  through  the  call  to  "listcheckO"  which 
drives  the  loop.  This  sub-routine  fills  out  the  "checklist"  array 
which  keeps  track  of: 

1.  The  number  of  contacts  in  the  current  list  which  contain 
a  given  keyword,. 
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57 

55 

59 

60 
61 
6? 

63 

64 

65 

66 
67 
6£ 
69 
7  C 

71 

72 

73 

74 

75 

76 

77 

78 

79 

eo 

ei 

82 

83 

84 

85 
36 

87 

88 
39 
9  5 
61 

92 

93 

94 

95 

96 

97 
93 
99 

ICO 
1U1 
'102 
1C3 
1C4 
105 
1C6 
1  G  7 

tea 

109 

110 
111 
112 


2.  The  accession  number  of  one  cf  the  contacts  that' 
contains  a  given  keyword. 

3.  The  number  of  keywords  fro*  the  given  category  which  precede 
the  keyword  in  the  contact  namec  by  item  2  above. 

Items  2  and  3  provide  a  way  of  recovering  a  keyword  ir  order  to 
print  it.  Number  2  gives  a  contact  where  it  occurs  ard  number 
3  indicates  which  of  the  keys  it  is.  Since  the  "listcheckO"  array 
has  limited  lenith#  it  covers  just  a  sub-r.nue  of  the  co&sible 
k'.yvord  id  numbers  on  each  loop  iteration.  On  each  call/  "listcheckO" 
returns  the  smallest  id  number  of  a  keyword  occuring  in  the  current 
list  cf  contacts  which  has  not  yet  been  considered  in  the 
“checklist”  array.  This  provides  a  lower  bound  for  the  neat  iteration. 

Once  the  "checklist  array  has  been  filled  out  for  an  iteration# 
the  routine  prints  out  t tj e  keyword  data  for  the  checked  keys.  If  the 
“checklist"  struct  for  a  key  has  not  oeen  checked#  then  nothing  is 
printed.  Otherwise#  the  contact  data  is  read  and  the  given 
keyword  string  is  printed  as  it  appears  in  the  contact  cata  file. 

If  any  other  categories  were  named  in  the  argument  list#  then  the 
keywords  from  those  categories  which  occur  in  the  contact  data 
are  also  printed. 


CALLS: 


copy ( ) 

t  able  < ) 

concatO 

r  ;  s  p  (  ) 

l i st  check  ( ) 

g.tndnO 

eudataO 

also#  Uni*  routines: 

closeO 
printf () 
loev  ( ) 
open () 
pirrorl ) 

CALLED  BY: 

show ( ) 

h I  STORY : 

written  by  Dan  Putnam  -  spring  1979. 

a****************************** . •»*••••••*»• . . . . 


/•include  "struetdef*  .i“ 

A inc lude  "params.i" 
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1 1  5 

114 

115 
1  16 
1  1  7 
lie 
1  19 

1 2  r. 

171 

177 

123 

124 

125 

126 
127 
126 

129 

130 

131 
1  3? 

133 

134 

135 
1  36 
137 

136 
1  39 
14  3 
141 
147 

143 

144 

145 

146 

147 
14- 
1  4  V 

1  5.1 
151 
1  57 
153 
1  54 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


•define  CMECKSIZ  256 


l i s t (t i doc l i st *  arg) 

in t  fidpclist;  /  *  file  descriptor  of  current  ( c  list  »/ 

char  argil;  /*  contains  arguments  of  list  commano  */ 

f 

struct  keycheck  checklistCCHtCKSlZl*  /*  marks  lounc  keys  *7 

struct  keycheck  *checkptr;  /*  points  thru  checklist  */ 

int  type;  7*  number  of  chosen  category  »/ 

intargtype;  /<  type  cf  o!h«r  ar.junents  *  / 

int  keyn'jiber;  /*  number  of  key  among  keys  of  a  pc  *7 

int  i;  /*  counts  keys  of  a  given  type  •/ 

int  occurs;  7*  number  of  current  pc's  with  this  key  »/ 

extern  char  * k eynam e s C 3  ;  7*  names  of  keyword  categories  *7 

struct  keydata  pedata;  7*  picks  up  keyword  lines  for  pcs  *  / 

struct  keymarker  »markptr;  7*  points  thru  keyrrarkers  in  pccata  *7 

int  arglistt2C3*  7*  argument  numbers  of  show  *7 

int  invalid;  7‘  flag  =  1  if  an  argument  is  ir.valio  *7 

int  arqnuit.'  /*  loop  control:  counts  arguments  */ 

int  num;  7*  id  number  of  an  argument  *7 

char  replyC2563;  7*  gets  user  repconse  to  prompt  */ 

ir.t  lu;  7 »  low  io  in  ramie  passed  to  listcheck  */ 

int  hi;  7*  high  id  in  ranie  passed  to  listcheck  */ 

char  *string;  /»  points  to  individual  arg  strings  *7 

Char  >src<  /»  utility  pointer  useo  with  copyl)  *7 

char*dst;  /‘utility  pointer  used  with  copyl)  *7 

char  ‘key*  7*  points  to  keyword  string  in  pedata  *7 

register  int  peid;  7*  id  number  of  contact  in  lists  *7 

struct  nd«  pcinde*;  /»  offsets  of  data  in  pc  file  *7 

char  rckeyfiteCIQOJ;  7*  tor  tuilding  pekey  filename  >7 

static  int  fid pc;  7*  file  descriptor  for  pc  data  tile  *7 

static  int  fidpekey;  7*  tile  aescriptor  for  pekey  cata  file  •/ 


/“»»**  make  sure  file  descriptors  are  closed  before  using  again  ♦/ 

ill  f  i  dpc  ! =  0  ) 

< 

c  lose  (  f idpc  ) ; 
f i dpc  =  Ci 

) 

if<  f idpc key  !  -  0  ) 

t 

closel  fiapekey  ); 
f  i  jp  ck  ey  = 

> 
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169 

170 

171 

172 

1  73 

174 

175 

176 

177 
17? 
179 
U'. 
lei 
1  82 

183 

184 

1 85 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
2C1 

2  21 
2C2 
2'.  5 
204 
2CS 
2C6 
2C  7 
2C3 
2C9 
210 
211 
212 

213 

214 

215 

216 

217 

218 
219 
22  J 
221 
222 

223 

224 


/***«•*  parse  argument  string  */ 

invalid  -  0;  /*  assume  all  arguments  olt 

arqnum  =  C» 


s  re  =  ar.»; 
strin>-  =  src; 
dst  *  src; 

whilel  copyl  Ssrc.  Sdst,  *  •,  10C)  >  1  > 

< 

ill  (non  s  tablet  string,  keynames  ))  <  0  ) 

< 

pr^nti(”*l;s,  i*  not  a  valid  argunentXn",  string); 
invalid  =  1# 

> 

arglistt  argnumt*  3  E  ,no«; 
string  *  sre,  /*  save  start  oi  strinq  */ 

> 

if  (  invalid  ) 

return;  /*  try  aqain  «/ 

arglistt  argnun  3  *  -17  /*  terminate  list  of  argument  cedes  */ 


if(  argnun  =s  0  ) 

< 

return; 

> 

type  3  arglistCC3,’ 

concat (PCKf T,  locvl  0/  type),  pekeyfile); 

if(  (fidpekey  *  open  (pekeyf i  le,  0))  <  0  ) 

< 

perrorl”list  can’t  open  pekey  file”); 
return; 

) 


lo  =  o; 

hi  *  checksiz  -  i; 


do 

< 
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225 

l  0 

=  listcheckl  fiopclists  fiapckey.  checklists  los  hi); 

226 

h  i 

=  lo  ♦  C  HECK  S l 2  -  1; 

227 

222 

fori  checkptr  =  checklist;  checkptr  <  SchecklistECHECKSIZ];  checuctr**) 

229 

{ 

2  3: 

231 

it<  checkptr  ->  keycount  0  ) 

2  52 

cont i nue ; 

235 

234 

235 

pcid  =  checkptr  *>  pcnun.; 

236 

keynumber  =  checkptr  ->  keynum; 

237 

occurs  -  checkptr  keycount; 

?3o 

2  3  9 

i<<  Ifiipc  =  getnaxl  pcid»  Kpcinuex))  <  C  ) 

24C. 

cont  i nue ; 

241 

- 

242 

243 

eatcfatal  pcids  fidpc*  pc  i  nde  x  .  k  e  y  l  i  nes  r  ftpcdola); 

244 

245 

closet  fidpc  ); 

246 

fidpc-0;  7*  nark  it  as  being  closed  *7 

247 

248 

i  =  c; 

249 

25C 

fori  markptr  -  pcdata  .  keyptr;  ;markptr«a> 

251 

{ 

252 

ifC  markptr  ->  keytype  *=  type  ) 

253 

{ 

254 

if(  i«*  ==  keynumber  ) 

255 

break ; 

256 

> 

257 

> 

258 

259 

26  ' 

printf("*s  \(  Xd  \)\n"»  irarkptr  ->  keystring,  occurs); 

261 

2 '■-2 

fori  or  gnum  -  1;  <  argtype  -  arolistt  argnun  )  )  !=  -i;  jrgnuuO 

263 

l 

264 

fori  keynumber  -  i .1  keynumber  <  tcdata  .  totkeys;  k e y numc er ♦ ♦ ) 

265 

{ 

2  46 

itl  pcdata  .  keyptrl  keynumfcer  3  .  keytype  11  argtype  ) 

267 

< 

268 

key  *  pcdata  .  keyptrl  keynurrter  }  .  keystring; 

269 

printfl”  Xs;  Xs\n\n”r  keynamesCargtypel/  key); 

2  7  J 

break; 

271 

} 

272 

> 

273 

> 

274 

> 

275 

to  >=  o  ); 

276 

277 

close' 

1 i dock ey  ) ; 

2  78 

fidpckey  =  0;  /»  njrk  it  as  being  closed  *7 

2  79  > 

47 
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1  tt 

3 

4  N»«f: 

5 

6  list  check ( ) 


9 

FUNCTION: 

13 

Fill  in  i 

checklist  indicating  the  presence  of  keywords 

11 

in  a  list 

ot  contacts. 

12 

13 

CALLING  SEQUENCE: 

14 

15 

int  fidpclist 

16 

int  fidpckey 

17 

struct  keycheek 

‘checkl ist 

18 

int  lu 

19 

int  hi 

2C 

21 

PARAMETERS: 

22 

23 

f idpcl 1st 

file  descriptor  tor  the  list  of  current  contact 

24 

accession  numbers. 

25 

26 

f idpckey 

File  descriptor  tor  the  "pckey."  file  listing 

27 

keyword  id  numbers  of  keywords  occurina  in 

28 

contacts. 

29 

30 

max 

Maximum  number  ot  keywords  per  contact 

31 

from  the  given  category.  Effectively  gives 

32 

the  length  of  the  “rows"  of  the  pckey  file. 

33 

34 

check  list 

The  struct:  in  this  srray  give  information 

35 

atout  the  occurence  of  keywords  in  the  current 

36 

contact  list: 

37 

38 

1.  The  number  of  permits  in  the  current 

JV 

i 

list  which  contain  a  given  keyword. 

*6  u 

41 

2.  The  accession  nunber  of  one  cf  the  i 

42 

contacts  that  contains  a  giver  keywcro. 

43 

44 

3.  The-  number  of  keywords  from  the  given 

45 

category  which  precede  tne  keyword  in  the 

46 

contact  nameo  oy  item  2  above. 

47 

48 

flag 

If  this  flag  is  set»  only  want  to  get  keyworos  whose 

49 

high  tits  are  set  to  denote  non-compliance. 

50 

51 

lo 

Defines  the  low  end  of  the  range  covered  by 

52 

th*  checklist  array. 

53 

54 

hi 

Defines  the  high  end  of  the  ranoe  covered  by 

55 

the  checklist  array.  t 

56 

48 
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57  RHURdS: 

52 

S9  R»turrs  the  smallest  id  number  of  the  keywords  occurirg  in  the  current 

tu  list  of  contacts/  but  not  yet  checked  in  the  "checklist”  array. 

61  Presumably/  this  value  will  he  used  lor  the  "lo"  parameter  cr  the 

62  next  call  to  this  routine.  if  there  is  no  such  smallest  id  number/ 

63  the  routine  returns  -1  to  signify  that  all  the  keyworcs  have  beer 

64  covered. 

63 

66  ALGORITHM: 

67 

68  A  pass  is  made  through  the  "checklist"  array  to  initialize  it  to 

69  empty.  Than/  the  input  buffer  for  the  current  contact  list 

7J  is  filled  to  prepare  lor  the  rain  loop.  in  the  main  loop/  each 

71  iteration  considers  an  accession  nuirter  of  a  contact  in 

72  the  current  list  of  contacts.  The  routine  moves  through 

73  toe  "pckey."  file  to  locate  the  "row"  correpconding  tc  the  given 

74  contact  nurroer.  The  keys  listed  in  this  row  are  checked 

75  in  the  "checklist"  provided  that  they  fall  into  the  range 

76  defined  by  "lo"  and  "hi"/  and  they  match  the  "flag”  parameter. 

77 

78  CALLS: 

79 

80  seeklO 

81 

82  Also/  Unix  calls: 

83 

84  SeekO 

85  read!) 

86  perrorO 

87 

called  by: 

89 

9  )  list  <) 

91 

92  HISTORY: 

9  3 

94  written  by  Dan  Putnam.  -  spring  1979. 

9  5 

90 


97 
9  J 
99 
ICO 


101 

1  ri  1 

H inc lude 

"structdcfs.i" 

/« 

define  keyeheck  struct 

*/ 

1  wC 

1  C  3 

1  C4 

*de  fine 

PCL1STSIZ 

25n 

/  * 

tuf 

sire  for  currert  pc  list 

•  / 

1u5 

Ade  f  i ne 

PCKCYSIZ 

<68 

/• 

tu  f 

sire  for  pckey  file 

*/ 

1  J6 

1  C  7 

1  C8 

listcheckC  fiopclist/  fidpckey. 

che  c  k l i st / 

l  O* 

hi) 

1  C9 

Int  fidpclist/ 

/  • 

descr iptor 

for  current  list  cf  pcs 

•/ 

113 

int  fidpckey; 

/• 

descriptor 

for  pckey  file 

•  / 

111 

struct  keyeheck 

checkl istCJ; 

/• 

used  to 

keep  track  of  founc  keys 

•  / 

112 

int  lo; 

/  • 

key  Id 

»  of 

base  entry  in  checklist 

•/ 

r 
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113 

int 

hi; 

7*  key  id 

<1  of  last  entry  in  checklist 

»/ 

114 

115 

i 

int 

newlo; 

/* 

smal  lest  key  id  >  hi 

*7 

116 

int 

pctistCPCLisTsm; 

/* 

buffer  for  current  pc  list 

» 7 

117 

int 

•rclistptr; 

/« 

points  thru  pclist 

*7 

118 

int 

*endpcl ist; 

/* 

points  off  end  of  pc  list 

•  7 

119 

int 

pckeylistCPCKEYSIZj; 

/» 

buffer  for  pekey  file 

•  7 

120 

int 

‘rckeyptr; 

/» 

points  thru  eckey  entries 

*7 

121 

int 

♦endpek  ey ; 

7* 

narks  end  of  pekey  buffer 

*7 

122 

int 

pc  id; 

7* 

id  nunber  of  pcs  in  pclist 

*/ 

125 

int 

keypc ; 

/* 

id  of  pc  of  pekey  entries 

•  7 

124 

int 

keyval; 

/• 

keyworo  value  in  pekey  file 

*/ 

125 

int 

k  eynumber; 

7* 

number  of  keyval  in  list 

*/ 

126 

int 

nbytes; 

7* 

returned  from  reaos 

*7 

12/ 

struct  keycheck  *checkptr; 

/* 

runs  thru  check  list 

«/ 

128 

int 

i; 

7* 

loop  control:  checklist 

•  7 

129 

130 
151 

132 

133 

134 

135 
1  36 

137 

138 

139 
14C 

141 

142 

143 

144 

145 

146 
14  7 

148 

149 
1  50 

151 

152 

153 

154 

155 

156 

157 
1  58 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


new  to  =  0077777; 
keypc  3  C; 


/»  laroest  pcs  integer 
/»  pc  of  first  keys 


•7 
*  7 


init  checklist  to  none  found 


»/ 


check ptr  =  checklist; 
fori  i  =  lo;  i  <=  hi;  i ♦ ♦ J 
< 

c'lec^tr  ->  pcnun  =  -1; 
checkptr**  ->  keycount  *  i‘Z 

> 


seekl  fidpclist»  Or  C); 
seekl  fidpekeyr  0*  0); 


7*  be  sure  to  start  at  the  beginning 
7*  be  sure  to  start  at  the  becinninq 


*7 

*7 


fill  up  pc  list  buffer  to  get  started 


*7 


ifl  (nbytes  3  read < f  idpc  l  i s t /  pclist/  PCLISTS1Z  *  2))  <  C  ) 

< 

perrorC'list  can't  read  current  pc  list”); 
return; 

) 


pc  t  i stpt  r  -  pc l i st ; 

endpclist  =  pclist  ♦  (nbytes  7  2); 


7*  pts  off  enc  of  list  *7 
fill  up  pekey  buffer  to  get  started  *7 


50 
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17C  ifl  (nbytes  r  r ead ( f  i  ape k ey *  pekeylist*  PCKEYSI2  *  2))  <  C  ) 

171  { 

172  pe r r o r l " t i s t  can't  read  pekey  file"); 

173  return; 

1  74  ) 

1  75 

17b  pekeyptr  =  pekeylist; 

177  endpekey  =  pekeylist  ♦  (nbytes  /  2);  /*  pts  off  enc  of  list  *7 

1  78 
1  79 
1,‘Hi 

151  /»»**«*  run  thru  current  pc  list  to  oet  keys  for  each  one  */ 

182 

183  while((ccid=*pclistptr**>!=-1)  /'  null  terriratei  *7 

184  { 

185  /******  first  check  if  «e  have  used  up  pc  buffer  */ 

18b 

187  iff  pclistptr  >-  endpclist  ) 

185  < 

189  /******  refill  buffer  and  reset  pclistptr  */ 

190 

191  i  f  l  (nbytes  -  r e ao ( f i dp c  l  i  s t *  pelist*  PCLISTSIZ  *  2))  <  C  ) 

192  < 

193  perrorC’list  can’t  read  current  pc  list"); 

154  return; 

195  ) 

196 

197  pclistptr*  pelist; 

198  endpclist  -  pclist  ♦  Inbytes  /  2);  /*  pts  off  enc  cf  list  */ 

199  } 

200 
2G1 

2C2  /*»»***  ne*t*  read  up  to  proper  section  of  pekey  file  */ 

21.3 

204  whilel  keype  <  pcid  ) 

225  t 

2C6  iff  ‘pekeyptr**  ==  -1  ) 

207  keype**;  7*  run  thru  unwanted  key  ids  ♦/ 

2 'll 
21.9 

21G  "iff  pekeyptr  >-  endpekey  ) 

21!  t 

212  ill  Inbytes  =  r  ead (  fid pekey*  pekeylist*  PCKIYS17  *  2))  <0 

213  < 

214  perrorC'list  can't  read  pekey  file”) ; 

215  return; 

216  > 

217 

218  pekeyptr  =  pekeylist; 

219  endpekey  =  pekeylist  ♦  (nbytes  7  2); 

220  > 

221  > 

222 

22J  , 

224  /***»»«  pun  thru  keys  for  pcid  and  put  in  checklist  *7 


51 
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225 

226 

227 

tort  keynumfcer  =  0»  (keyval  -  »pckeyptrkt)  !=  -1;  keynumber 

228 

< 

2  29 

i  t  < 

pckeyptr  >=  endpckey  ) 

2  30 

t 

231 

iff  (nbytes  -  readf  fiopckey*  pckeylist*  FCklrSI/  * 

232 

i 

233 

perror ("list  can't  read  pckey  file")* 

234 

return) 

235 

> 

236 

237 

pckeyptr  =  pckeylist; 

236 

endpckey  -  pckeylist  ♦  (nbytes  /  2>* 

239 

> 

2  4  0 

241 

242 

iff 

keyval  <  lo  ) 

243 

con  t inue ; 

244 

245 

iff 

keyval  >  hi  ) 

246 

C 

247 

iff  keyval  <  newlo  ) 

248 

newlo  =  keyval* 

249 

250 

cont inue; 

251 

> 

252 

253 

checkptr  =  checklist  ♦  f  keyval  -  lo  >; 

254 

255 

256 

/»**•**  don't  bump  count  if  cuplicate  keyword  in  contact 

<57 

2  5  i 

iff 

checkptr  ->  pcnum  !“  pcio  ) 

259 

2  60 

checkptr  ->  keycount+t; 

261 

checkptr  ->  pcnum  -  pcid*’ 

262 

checkptr  ->  keyrum  =  keynumber; 

263 

) 

264 

> 

265 

266 

267 

268 

keypc  * 

pcid  ♦  1;  /*  above  loop  uses  up  keys  for  pcid 

269 

270 

) 

271 

272 

27  3 

/..*♦**  if 

newlo  has  its  original  value  return  -1  =  all  done 

274 

275 

iff 

newlo  = 

*  077777  ) 

276 

returnf 

-1  ); 

277 

else 

278 

2  79 

280  > 

return  f 

newlo  ); 

t 
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1 


1  n 

2  ((include  ”s  t  rue  t  de  f  s  .  i  " 

3  ((include  "commandefs.i” 

4  #in elude  "params.i“ 

5 

6 
7 
J 


q 

I  ’  selectl  opcode*  term) 

II  int  opcode;  /*ij  number  of  command  */ 

12  char  termC3*  /*  null  terminated  string*  argument  of  command  */ 

13  1 

1 4  e*tern  int  phase;  /»  tor  switching  between  scratch  tiles  *7 

15  otern  int  fioscratchC?J;  7*  tile  oescriptors  for  scratch  files  *7 

16  intfiopekey;  />  descriptor  for  pekey  file  */ 

17  char  pcke/tile[2563;  /»  used  to  build  rckey  file  name  *7 

Is  in  told;  /*  tile  Oescrif.tor  ior  scratch  file  *  / 

19  int  new;  /*  tile  oescriptor  for  scratch  file  */ 

2C  char  buftert2563»  /*  buffer  for  user  repconse  *7 

21  char  *src*  /*  utility  pointer  used  with  copyl)  *7 

22  char  «dst;  /«  utility  pointer  used  with  copyl)  */ 

23  struct  marker  ‘termptr;  ’  /*  points  to  struct  describing  term  •/ 

24  int  nun/  7*  number  of  pcs  from  bool  or  keypes  *7 

25  int  filenum;  /*  cateqory  of  keywora  */ 

26  int  idnumber;  /*  number  of  keyword  in  category  »/ 

27  int  onepcC23;  7*  buffer  for  writing  list  of  one  pc  »/ 

2rt 

29  /»*•»**  if  term  is  null*  use  current  ano  ole  lists  */ 

30 

31  ifl  ttrmCC)  as  0  ) 

32  l 

33  i f  l  op  co  1e  ! -  f I  NO  > 

34  < 

35  /«***»*  note  that  we  don't  change  phase  on  this  ore  */ 

36 

37  new  *  fidscratchl  phase  3;  7*  new  pc  list  will  be  in  phase  */ 

3  e  old=fidscrutch[l-phase3;  (‘  out  ol  phase  *  / 

39 

4r.  nun  =  boo l  Co l d* new* new* opcode ) * 

41  orintff'Xd  in  current  list\n"»  nun); 

42  ) 

4  3 

44  return; 

45  ) 

46 

47  /•**«**  look  at  termCQJ  to  see  it  user  wants  just  one  pc  *7 
4? 

49  ifl  te  rmlC3  =  -  *H*  ) 

5  3  l 

51  onepcC03  *  atoil  term  ♦  1  ); 

52  onepcCIl  =  -1* 

53 

54 

55  phase  =  1  -  phase;  7*  maps  >.  to  1  and  mars  1  to  ;  •/ 

56  new  =  fidscratchl  phase  7*  7 »  new  pc  list  will  be  in  phase  ‘7 
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57 

58 

59 
61 
61 
62 

63 

64 

65 

66 
6  7 
68 
69 
7? 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
Hi 

84 

85 

86 
6  7 
88 
89 
9.' 

91 

92 

93 

94 

95 

96 
>7 

98 

99 
100 
131 
1  C2 

103 

104 

105 
1  C6 
107 
1C8 

109 

110 
111 
112 


old  =  fidscratcht  1  -  phase];  /»  old  will  be  out  of  phase  »/ 

seekt  new/  0/  0); 

•i  f  <  writet  new/  onepc/  4 )  <  4.  ) 

{ 

perror(”select  can’t  write  to  pc  list’1); 
e*it  <); 

> 


printf<"pc  Xd  se lec t ed\ n" /  onepcCO]); 

i  ♦  <  opcode  !  *  HUD  > 
l 

nun  *  boo l <o Id/new/ new/opcode > ; 
printff'Xd  in  current  list\n"/  nun)/ 

) 

rc  turn; 

) 


/»****•  special  case:  user  wants  list  of  all  pc’s  *7 

if<  compart  term/  ALL)  =  *  0  ) 

< 

phase  *1-  phase;  /»  aaps  0  to  1  and  maps  1  to  0  *7 

new  *  fidscratcht  phase  ];  /*  new  pc  list  will  te  in  phase  */ 

old  =  fidscratcht  1  *  phase];  /•  old  will  be  out  of  phase  */ 

nun  -  initlistt  new  ); 

printfC'Xd  in  current  listXn”/  num); 

if(  opcode  !=  FIND  ) 

< 

num  *  t oo l (ol d/new/ne w/Opcode  )  ; 
printffia  in  current  list\n”/  num)/ 

> 

re  turn; 

> 


/**»**•  here  is  where  we  handle  ordinary  keywords  *7 


iff  (termptr  =  keyword!  term  ))  !=  0  ) 

< 

filenum  s  termpt r  ->  file; 
idnumter  *  termptr  ->  idnum; 

i f  <  filenum  >=  MESSACFS  ) 

< 

helptO/  termptr  >;  7*  print  cut  messaje  for  user  «7 
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return; 

) 


/»***»*  reset  phase  to  switch  new  and  old  files  »/ 


phase 

-  1  -  phase* 

/» 

in  aps 

c 

to  1 

and 

maps  1  tc  0 

*7 

new  * 

fidscratchC  phase  3; 

/  * 

new 

cc 

list 

will 

be  in  phase 

*/ 

old  1 

tiJscratchC  1  -  phasej; 

/  * 

old 

will  be 

Out 

of  phase 

•  / 

concatt  PCKCY,  IccvtO*  filenum)*  pckeyfile); 

if<  (fidpckey  =  opentpekeyfile*  C ) )  <  0  ) 

{ 

|.<  rrorC'select/  pckey  open"); 
return; 

> 


/****»•  use  keypcs  to  jet  list  of  pcs  fcr  non-event  keyword  */ 

num  =  keypcs l idnumber*  fidpckey*  new); 


printfCSd  foundin''*  r.um); 
closet  fidpckey  ) ; 


i  f  (  o(.  code  •  =  FIND  ) 

num  =  boo  1  to  Id  *  new* ne w ,opco de ) ; 
printfC'Xd  in  current  listin''*  num); 

) 

return; 

> 

> 
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1 


1 

2 

# 

3 

Pine  lude 

"st  ruetdef s  .  i" 

<i 

5 

Pine lude 

"params  .i‘‘ 

6 

7 

*de  fine 

LSTSI2  2S6 

8 

9 

n 


11 

12 

s  how ( f i d) 

15 

i  r  t 

fid;  / »  file 

descriptor  of  current  pc  list 

*/ 

14 

i 

15 

struct  getlhuf  bufin; 

7* 

buffer  for  getll)  routine 

»  7 

16 

char  lineC2563; 

-/• 

gets  lines  from  getlt) 

»/ 

17 

int  nbytes; 

/* 

char  count  from  getl 

*/ 

18 

char  ‘key; 

7  * 

points  to  keyword  string 

«/ 

19 

int  t  ype  » 

/* 

index  to  categories 

•  7 

20 

int  printflag; 

/* 

flags  printing  first  key  of 

a  type 

•  7 

21 

struct  k eyma rk e r  ‘markptr; 

/♦ 

points  thru  keyptr  array  of 

pedata 

*7 

22 

extern  char  ‘keynames C3 ; 

/• 

names  of  keyword  categories 

»7 

23 

int  keynumber# 

/* 

counts  filleo  in  keyptr  entries 

•7 

24 

struct  keydata  pedata; 

/• 

picks  up  keyword  lines  for 

pcs 

»/ 

25 

char  *sre; 

/  * 

utility  pointer  used  with  copyl) 

•7 

26 

char  »dst; 

/» 

utility  pointer  used  with  copyl) 

*7 

27 

int  pc l  i s t CL STS123; 

7* 

buffer  for  input  and  output 

lists 

•7 

27 

register  int  j# 

7‘ 

fast  loop  counter 

*7 

29 

register  int  peid; 

7* 

id  number  of  source  permit 

in  lists 

*/ 

30 

int  ‘pclistptr; 

/* 

points  thru  list  buffer 

*/ 

31 

int  *end  l  i  st «' 

7  * 

marks  end  of  pelist  array 

•  7 

32 

struct  ndx  pcindex;  7‘  offsets 

of  data  in  pc  file 

*7 

33 

l  on  o  offset; 

/• 

temp  copy  of  pcindex  offsets 

*7 

34 

35 

36 

static  int  fidpc; 

7  * 

file  descriptor  for  pc  data 

tile 

*/ 

37 

3? 

closed  before  using  again 

*7 

39 

40 

if(  fidpc  !=  0  ) 

41 

< 

42 

closet  fidpc  >; 

43 

f idpc  -  c; 

/* 

mark  it  as  being  closed 

*7 

44 

) 

45 

46 

47 

make  sure  we  get  whole  file 

48 

seek<fid»C#0); 

7  • 

*7 

49 

LSTSIZ  *  sizeof  (‘pelist)))  > 

50 

whilet  (j  *  read(fid»  pelist*  1 

C) 

51 

(. 

52 

j  */  2; 

7‘ 

j  •  number  of  ints  read 

•  7 

53 

54 

pclistptr  *  pelist; 

* 

55 

56 

whitetj--  88  (pcid  - 

•  pel  istpt  r*0  !*  -1) 

56 
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57 

56 

59 

60 
61 
6? 

63 

64 

65 

66 
67 
66 
46 

7  i 

71 

72 

73 

74 

75 

76 

77 
76 
79 
60 
81 
-32 

83 

84 

85 
66 

87 

88 

89 

90 

91 

96 
95 

94 

95 
94 

97 
9!' 
59 

1n0 
101 
i  :2 
1C3 
1C4 
105 
1  06 
1C7 
108 

109 

110 
111 
112 


{ 


i<<  (fidpc  =  getndxf  pcidr  ipcinoex))  <  C  > 
cont i nue  # 

printfC'pc  *%u\n"r  ocid); 


eutdataf  I'ciJ*  f  ii  pc/  pc  index . ke yl i nes r  Spcd,m); 

fcr(  type  =  C.'  type  <  MUKTYPS/’  type**) 

{ 

t  r  i  nt  f  l  ay  =  M 

Tofkptr  1  p  c  cl  c- 1  a  .  keyptr/ 

furl  keynumcer  =  C;  key  number  <  pc  data  .  iotkiys/  keyriumter**) 
< 

it(  markptr  ->  keytype  **  type  ) 

< 

-i  -f  <  printflag**  "  0  ) 

printfC  \nJls:\r"r  keynamest  type  ] ) « 

printfC*  5£s\n**r  markptr  ->  keystrirq); 

> 

markptr**/ 

> 

> 

/*»*•**  now  print  text  data  */ 

printt(''\n\n"); 

offset  =  pcindex  .  datalines; 

if<  offset  <  0  |i  scekll  fidpcr  offset)  <  C  ) 
t 

print! ("can't  seek  to  dataVn "); 
continue; 

) 

hufin.fildes  =  fidpc; 

Putin. nleft  -  0» 

«ihile(  (nbytes  =  uetll  liner  Sbufin))  >  0  ) 

< 

lineC  nbytes  1  ~  Ci 

i f (  linetOJ  ==  '»*  ) 
break; 

pr int I ("X  sM  *  line); 

> 

closet  fidpc  );  7*  all  done  with  this  one  */ 

fidpc  =  0«  7*  mark  it  as  being  closed  */ 
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115 

114  printf  C“*****»\n\r»”) 

115  > 

116 

117  i 1 <pc id  ==  -1) 

118  break; 

119 

121  > 

121  > 
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1  A 

2  /.A.... ......... 

3 

4  NAME  : 

5 

6  lookupl) 
/ 

?  FUNCTION: 


10 

11 

12 

13 

14 

15 

16 
1  7 
Id 
19 
2L 
21 
22 

23 

24 

25 

26 
2/ 
28 
29 
3: 

31 

32 

33 

34 

35 

36 

37 
33 
39 

4 

41 

4? 

43 

44 

45 

46 
4/ 

48 

49 

5  ’ 

51 

52 

53 

54 

55 
36 


Look  in  the  hash  table  file  for  the  wo rd  marker  struct:  corresponding 
to  a  given  string. 

C4LLING  SEQUENCE: 

char  *word 

iot  fileid 

int  checktla) 

struct  marker  mfindptr 

int  max 

PARAMETERS: 

word  Points  to  the  string  to  be  looked  up  in  the  hashtable. 

fileid  The  number  of  the  keyword  file  in  which  the  word 

should  be  locateo.  If  this  flag  is  -1.  ther  all  the 
keyword  files  are  searched. 

checkflat  11  this  flag  is  C.  then  «  struct  whose  3  hash  values 

match  those  of  the  given  wore  is  assumec  to  match  the 
word.  If  this  flag  is  ron-zero.  then  the  keyword 
corresponding  to  such  a  struct  is  reao  from  its 
keyword  file,  and  compared  to  the  given  word. 

findptr  Points  to  an  array  of  structs  which  is  filled  in 

oy  "IcokupO"  with  the  structs  which  match  the  giver 
wore  . 

mix  Gives  the  size  of  the  above  array  so  that  "lookupO" 

can  avoid  overwriting  that  array. 

RETURNS : 

The  number  of  struct  elements  matching  the  given  word. 

If  an  error  condition  is  encountered  on  an  "openO”.  "seekU"  or 
a  "readO".  then  "exitO"  is  called  to  terminate  the  program. 

ALGORITHM: 

On  the  first  call,  the  hashtable  file  is  opened  and  the  file 
descriptor  is  saved  in  a  static  variable  to  save  tine  or  subsequent 
calls.  At  this  t  i  e .  "fstatO"  is  called  to  cetermine  the  lemth 
of  the  hashtable  file  measured  in  marker  structs.  The  CVLRFLOW 
parameter  is  subtracted  from  this  length  to  determine  the  "modulus". 
Obviously,  this  parameter  must  agree  with  its  counterpart  in  the 
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57  "hash"  program.  , 

58 

59  To  look  up  the  given  wora  in  the  hashtable*  the  "hashtnO"  routine 

6'J  is  called  to  compute  the  3  hash  values  of  the  word.  The  index 

61  into  the  hash  table  is  computed  from  the  hash  values  anc  the  “moculus”. 

62  A  calculation  is  performed  to  determine  the  numter  of  structs  that 

63  can  be  read  beginning  with  the  index*  that  will  net  cross  a  512  tyte 

64  boundary  in  the  file.  This  makes  the  initial  read  from  the  hash  table 

65  about  twice  as  fast  as  if  it  crossed  the  bounoary*  anc  the  first 

66  read  almost  always  encompasses  the  collision  list. 

6  7 

6d  The  structs  in  the  collision  list  are  scrutinized  to  see  if  they 

69  match  the  input  word  and  those  that  do  are  copied  intc  the  array 

7C  of  structs  indicated  by  "findptr".  If  this  array  runs  out  of  rocm* 

71  the  structs  are  no  longer  copied*  but  the  count  of  matching  structs 

72  still  continues. 

73 

74  CALLS: 

75 

76  hashfnO  To  compute  hash  values  of  the  input  were. 

77 

78  seeklO  To  perform  seeks  at  long  offsets. 

79 

8C  concatO  Tn  concatenate  strings.  (  borrowed  from  CfclDS  ) 

81 

82  getlO  To  read  keywords  from  the  keyword  files. 

83 

84  copy ( >  To  extract  the  keywords  from  the  line  on  which 

85  they  are  declareo. 

86 

87  coapirO  To  compare  strings.  (  borrowed  from  CELCS  ) 

88 

89  Also*  the  following  Unix  calls. 

90 

91  noenO 

92  fstatO  To  get  the  size  of  the  hash  table  file. 

93  readO 

94  ex  i t  O 

95  n-.'rrorO 

96  pr int  f  (  ) 

97 

98  CALLED  BT  : 

99 

100  Various  programs  that  need  to  look  up  keywords. 

1C1 

1 C2  history: 

103 

104  written  fy  Dan  Putnam  -  fall  1973 

1C5 

106  This  routine  is  essentially  identical  to  the  "looVupO"  used  in 

107  tie  PAPS  system.  The  "include"  files  are  the  only  major 

108  difference,  and  this  channe  was  needed  only  to  redefine  the 

109  "KEYHAPE"  parameter.  Adaptations  were  aaoe*  spring  1979*  by 

110  Dan  Putnam. 

111 

112  . ***** . . . . . . . . . . 
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1  13 

114 

115 

ft  i  n  c  l  ud  e 

"s t  rue t def s 

, .  i“ 

1  16 

ft  i  nc  l  ude 

“params . 

i  “ 

1  1  7 

118 

11V 

1  20 

* de  f i ne 

HASHSUf S1Z 

32 

7*  fits  in  one  block 

121 

»de  f i ne 

OVERf LOW 

ICO 

122 

123 

loo* up (word# 

fileiU/Checkflati/firidp  tr/ma*) 

1  24 

char  *^ord; 

7  » 

points  to  word  we  are  looking  for 

123 

int 

f  i  l  e  i  d ; 

/» 

if  -1/  any  file;  if  >=  Or  specific 

12o 

int 

die  ek  1  la 

i ; 

7  * 

if  1*  then  check  characters 

12? 

struct  mar  ke 

r  »  f i nun t  r i 

/  » 

for  narkers  of  found  words 

1  2f 

i  n  t 

max; 

/  * 

length  of  findptr  array 

12v 

< 

1  30 

struct  f 

i lestruct 

/* 

used 

f  o  r 

■  getting  length  of  hashtable 

131 

i 

132 

cnar 

j  nk 1 9] ; 

7* 

don*t  need  this  stuff 

133 

Char 

s ireO; 

/* 

high  byte  of  file  si2e 

134 

int 

s  i  2  e  1  ; 

/* 

low  word  of  file  si2e 

135 

char 

ink2C241; 

7* 

don’t  need  this  stuff  either 

1  36 

}  file  data; 

13? 

1  38 

struct 

7* 

used 

to 

toad  sireC  and  sizel  into  a  long 

139 

i 

140 

char 

h i _oy  t  el 

/• 

corresponds  to  si2eU  of  filestruct 

141 

char 

highest; 

7* 

high  order  byte  of  a  long 

142 

int 

low. word; 

/* 

corresponcs  to  sizel  of  filestruct 

143 

3; 

1  44 

145 

struct 

/* 

used 

to 

access  high  and  low  words  cf  a  ler 

1  46 

< 

147 

int 

h  i  o  i  t  s  ; 

1  4  J 

int 

lobits; 

149 

>; 

1  5u 

1  51 

int  nun./' 

/» 

for  returning  number  of  firds 

1  52 

155 

register 

struct  marker 

•srentr* 

/•points  thru  hashtable 

15* 

register 

struct  marker 

•QStptr; 

/•  for  moving  f ouno  markers 

155 

1  56 

struct  getlbuf  bufr; 

/» 

struct  used  by  gettf)  routine 

15? 

int  ntytesi 

/* 

char  count  returned  from  get  l 

15  3 

char  filer,  ameC256j; 

/* 

for  tuiloing  keyword  file  r  a  «  e 

1  59 

char  key l ine[2563; 

/• 

for  reading  line  from  keyword  file 

1  6u 

char  key st r inqC 256] ; 

7  * 

gets  keyword  string  out  of  keylir* 

161 

char  *  s  r  c  ; 

7  • 

used  with  copy  routine 

162 

Char  >dst; 

7* 

used  with  copy  routine 

1  63 

long  index; 

/• 

index  into  hashtable 

164 

long  toundary; 

7  • 

512  byte  toundary  alter  inoex 

165 

register 

int  readbytes; 

7* 

bytes  in  markers  up  to  boundary 

166 

int  hashvalCI]; 

/« 

hash  v 3 1 u c s 

167 

166 

struct  marker  h ashbu f Cm A SHOUF S I ? j;  7*  tuffer  for  hashtable 
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169  struct  marker  *endbuf*  /*  end  cl  markers  in  hashfcuf 

170  int  evenword*  /*  number  of  bytes  in  hashbuf 

171 

172  static  int  fidhash;  /*  oescriptor  of  hashtable 

173  static  long  modulus*  /*  modulus  for  hash  algorithm 

174 

175 

176 

177 


173  /***»«*  first  call  initialization  */ 

179 

180  if<  fidhash  ==  0  ) 

1  til  { 

1£2  if(  (fidhash  =  open <  hAShTBL*  0)  )  <  0  ) 

183  { 

184  per ror ( "lookup*  can't  open  hash t abl e") * 

185  exitO.- 

1 8o  > 

187 

188 

189  /****«»  get  site  of  hashtable  to  compute  modulus  */ 

190 

191  fstatl  fidhash*  Rfiledata); 

192 

193  mudulus  »  0* 

194  mudu lus  .hi _by te  =  f i led  at  a. s ize 0; 

195  modulus.loe.xord  =  filedata.sizei;  /»  size  of  hashtable 

196  modulus  */  sizeoff  *hashbuf  );  /*  number  of  keyword  markers 

197  modulus  *-  OVtUFLOW; 

198 

199  } 

2C0 

?"1 

2'<2  /*»*»«»  compute  hash  values  of  word  and  look  into  hashtable  */ 

2.3 

2C4  hashfnfword*  hashval); 

2u5 

2*6 

2" 7  index. lobits  -  hashvalluj; 

2 Co  index. hibits  =  hashvalCU  &  QC77777; 

209 

210 

211  index  =  index  X  modulus* 

212  index  =*  sizeofl  *hashbuf  ); 

213 

214  /***»«*  compute  number  of  bytes  from  index  to  512  byte  bounoary 
2 1  S 

216  readbytes  *  512  -  <  i nde x . I ow  word  8  0777); 

217 

213  readbytes  -  (readbytes  /  sizeof(  ‘hashbuf  )  )  *  sizeof(  ‘hashbuf  ) 

219 

22C  HI  readbytes  >  sizeofl  hashbul  )  ||  readbytes  ==  0  ) 

221  readbytes  =  sizeofl  hashbuf  )* 


222 

223 

224 
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22  5 
726 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 
235 
2  4  J 

241 

242 

243 

244 

245 

246 

247 

248 

249 
2  50 

251 

252 

253 

254 

255 

256 

257 

258 
255 

26  J 
261 
262 

263 

264 

265 

266 
267 
266 
269 

27  i 

271 

272 

273 

274 

275 
2  76 

277 

278 

279 

280 


itlseekl  (fidnash /  index)  <  0) 

{ 

pr  int f ("fai led  on  seek  into  has h t ab  l  e\ n“ ) ; 
e  «  i  t  < )  ; 

> 


/*»»***  look  at  hashtable  entries  until  an  empty  slot  is  found 
num  =  0;  /*  none  found  so  far 

dstptr  -  finoptr#  /*  copy  to  register  pointer  for  extra  speed 

whilel  (nbytes  =  read(  fidhash/  hashbuf/  readbytes))  >  0  ) 
l 

readbytes  =  siaeofl  hashbuf  );  /*  next  time  fill  buffer 

endbuf  =  hashbuf  ♦  (nbytes  /  siaeofl  *hashbuf  )  >; 

tor<  srcptr  -  hashbuf/  srcptr  <  endbuf;  srcptrr*) 

{ 

/»****•  first  check  to  see  if  empty  »/ 


i  f  < 
( 

> 

srcptr  -> 

file  =  = 

-1  > 

return!  num  ) ;. 

/*  t  hat  s  all  folks 

i  f  < 

srcptr  -> 

hashv l 0] 

!  -  hashwallO]  ) 

continue.' 

/* 

not  found 

i  t  ( 

srcptr  -> 

hashvCID 

!=  hashvaim  ) 

continue; 

/* 

not  found 

i  f  < 

srcptr  -> 

hasbvC23 

!  -  h  a  sh va 1C  2  3  ) 

continue; 

/* 

not  found 

i  f  ( 

fileid  >= 

0  46  srcptr  ->  file  != 

fileid  ) 

continue; 

/* 

not  in  the  r i nht 

file 

i  f  ( 

checkflag 

) 

i 

/******  check  strings  to  be  absolutely  sure  *7 

conca t (K t Y NAME /  locv(0/  srcptr  *>  file)/  filename); 


if(  (bufr.filces  =  open(  filename/  C))  <  0  ) 

< 

perrorC'lookup  can't  open  keyword  file”); 
e*i  t  <>; 

> 

bufr.nlef t  =  0» 
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281 

282 

283 

284 

285 

286 
287 
268 
289 
250 

291 

292 

293 

294 

295 

296 

297 

298 
259 
3GQ 

301 

302 

303 

304 

305 

306 

307 

308 
3C9 
31  C 

311 

312 

313 

314 

315 

316 

317 
31 
310 
32i 
321 


ill  seekl(  bufr. tildes*  srcptr  ->  beginbyte  )  <  C  ) 
i 

perror ("lookup  can't  seek  to  keyword"); 
exi  t  (); 

> 


it(  (nbytes  =  ge t l < k ey l i ne *  8bufr)>  <  0  ) 

{ 

p r i n t t ( " loo kup  can't  reac  keyword  fileXn”); 
ex i t  (  )  > 

> 

closet  bufr  .1  i  l  des  )  ; 
keylineCnbytes  -  13  *  0* 
src  =  keyl ine  ♦  1; 

1st  =  keystring; 
c op y (  Ssrc  *  Xdst*  *:'*  256); 

i t <  compar(  keystring*  word)  !*  0  ) 

continue;  /*  no  match  •/ 

) 


i  f  <  nu»M  <  man  ) 


dstptr 
dstpt  r 
dstptr 
dstptr 
dstptr 
ostpt  r 


hastvCQJ  =  srcptr  ->  hashvCO); 

hashvltD  *  srcptr  ->  hashv£13; 

hashvl23  1  srcptr  ->  hashv[23; 

tile  =  srcptr  ->  tile; 
idnum  *  srcptr  *>  iiJnum; 
beginbyte  «  srcptr  *>  beginbyte; 


dstpt  r ; 


printtC'bad  read  in  lookup*  index  1  XD  readtytes  -  XdXn” * ince x * r eadby t e s ) 
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1 

« 

3 

4 

NAME  : 

6 

he l p () 

t 

FUNCTION: 

1 1 

Print  any  lines  following  the  line  which  declares  a  keyword 

i  n 

1 1 

a  keyword  file. 

12 

13 

CALLING 

SEQUENCE  : 

14 

1  5 

i n  t  fid 

16 

struct  marker  «termptr 

1  7 

13 

PARAMETERS: 

19 

2  CJ 

fid  File  descriptor  for  output  messages.  Set  tc 

1 

21 

for  output  to  the  user's  terminal. 

22 

23 

termptr  Points  to  a  word  marker  struct  identifying  a 

given 

24 

keyword . 

2  5 

26 

RETURNS 

; 

27 

27 

nothing. 

29 

3  1 

ALGCRIThM: 

31 

32 

The  routine  examines  "termptr"  and  returns  immediately  if  it 

i  s 

55 

a  null  pointer.  Otherwise*  the  category  number  is  aprended 

to 

34 

the  keyword  file  prefix  and  the  keyword  file  is  opened.  The 

offset 

35 

stored  in  the  marker  is  used  to  seek  into  the  keyword  file. 

36 

Note  that  1  is  adrtad  to  the  offset  to  skip  over  the  character 

37 

w*ieh  marks  the  keyword.  This  line  is  not  printed*  but  subs 

eouer  t 

33 

lines  are  printed  until  a  line  beginning  with  ' H *  is  founo  or 

39 

until  the  end  of  file. 

4  C 

4  1 

CALLS: 

42 

45 

cone  at  < ) 

44 

s “ek l  ( ) 

45 

g»tl<> 

46 

47 

Also*  Unix  calls: 

47 

49 

open ( ) 

5, 

perror ( ) 

51 

w  r  i  t  e  < ) 

52 

closed 

53 

54 

CALLED 

BY: 

55 

56 

i  i cep() 

(>5 
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2 


57 

s  ;  l  e  c  t  ( ) 

58 

5*5 

HISTORY: 

6r 

61 

written  by  Dan  Putnam  -  tall 

1978  - 

■  lor  PAMS  system. 

62 

Adapted  for  use  by  the  1 1 C E P 

system 

i  -  spring  197V  -  by  changing 

the 

o3 

" include"  files  to  define  the 

"KEYNAME”  parameter  differently. 

64 

65 

66 

****** 

k  *  *  * 

67 

68 

69 

7' 

/(include  “s  t  rue  t  de  f  s  .  i " 

71 

^include  “pa  rams . i” 

72 

73 

74 

help(fid»  termptr  ) 

75 

in t  fid; 

/* 

descriptor  of  output/  file 

«/ 

76 

struct  marker  *termptr* 

7* 

describes  keyword 

*/ 

77 

{ 

78 

char  t  i  leramet.803  / 

7  V 

char  l  i  neC  803 ; 

/* 

i nput  line  from  file 

*/ 

80 

struct  qetlbuf  puffer; 

7* 

used  by  getl  routine 

*/ 

81 

int  nchars; 

7* 

number  ot  chars  in  line 

*/ 

82 

int  linecount; 

7* 

number  of  lines  printed 

*7 

S3 

84 


95 

if(  termptr  =*  0  ) 

66 

{ 

87 

/*»**•*  nothing  to  print  */ 

8S 

99 

return.' 

9  : 

} 

VI 

9  2 

93 

concat<K£t(A--ltrlocw<0»termptr*>file>r  filename); 

54 

iff  f tu f f er . f i Ides  =  epenf f i lename* G) )  <  C) 

95 

< 

96 

re r r o r ( “he  l  pr  can't  open”); 

97 

return; 

98 

> 

59 

ICC 

101 

buffer, nleft  -  Of 

1C? 

iff  seek l (but  1 er . f i l de s • t erupt r->be g inby t e  ♦ 

w 

A 

O 

1C3 

< 

124 

pe r ror < "he l p»  can't  seek  to  k ey word\n”) ; 

1C5 

closelbuffer.f ildes); 

1C6 

return; 

1C? 

) 

1C8 

109 

linecount  =  0»‘ 

SS  l inetO)  !-  '»') 

110 

whilef  fnchars  =  get l <  line*  Sbuffer  ))  >  0 

111 

< 

11? 

iff  l  ineeouiit-te  «*  0  ) 

66 
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115  continue;  /*  skip  over  first  line 

114  ... 

115  lineCncharsJ  =  0;  /»  insert  null  after  the  end-ot-line. 

116 

117  uritelfid/  line/  ncharsl; 

118  J 

119 

120 

121  > 


closelbuffer.fildes) 
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FUNCTION: 


Create  a  unique  name  which  can  be  concatenated  with  scratch  file 
names  to  prevent  multiple  instances  of  a  program  from  overwriting 
each  ethers  scratch  files. 


calling  sequence: 

char  •me 
i nt  i am  (  ) 

PARAMETERS : 


me  -  paints  to  a  character  buffer  of  at  least  3  characters. 

This  tuffer  receives  the  unique  name#  which  consists  cf  a  lower 
case  letter#  followed  by  a  "D"  character  and  a  null  character. 


RETURNS : 


positive  integer 


negative  integer 


if  name  creation  was  successful. 


otherwi se  . 


ALGORITHM: 


The  ri.utine  uses  the  "creut"  system  call  to  attempt  tc  create 
a  file  named  with  the  string  "me".  The  "creat"  fails  if  a  file 
already  exists  with  this  name  ana  does  not  have  write  access. 

I’  this  occurs#  then  the  name  is  alterec  anc  the  process  continues 
until  a  unique  name  is  -found  or  else  the  lower  case  pre-fixes  have 
been  exhausted.  In  the  tatter  case#  -1  is  returned  tc  siqnify 
fiilure  in  creating  the  unique  name.  When  the  proceocre  succeeds 
in  creating  a  unique  name#  the  file  opened  by  iarl)  is  closeo 
before  returning.  It  is  not  expected  that  this  file  will  be 
used  tor  anything  exetpt  to  mark  its  name  as  already  being  in  use. 


CAULS : 


create) 


Unix  system  call  to  create  files. 


CALLED  BY: 


usually  a  main  program. 


HISTORY ; 


written  hy  Dan  Putnam  -  fatl  1978 
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i  am (me ) 

char 

{ 

int  i ; 
int  fid; 
ineCO]  =  ‘a*; 
rr.eCIl  =  'l'i 
ne  C  21  -  0; 

for<i  =  i;  i  <  26;  »♦♦) 

{ 

i<(  (fid  -  creat  (me.QAC'.)  )  <  0) 

< 

met j]**; 

) 

else 

{ 

ctose(fid); 
returnl fid); 

) 

> 

return(tid); 
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1 

n 

/* 

C  0  N  C  A  T  (Note:  Borrowed  from 

CELDS, 

Than* 

C 

3 

* 

Cone  atenate  two 

strings  into  one  strinq.  Concat 

returns 

a 

4 

* 

pointer  to 

the  end  of 

the  resultant 

string  so  that  successive 

calls 

5 

z. 

* 

to  concat  it. ay  tie  made 

easily. 

Q 

7 

* 

Arguments  : 

first 

pointer 

to  first  string 

H 

* 

second 

pointer 

to  second  strinq 

7 

• 

result 

pointer 

to  end  of  resulting  string 

10 

* 

11 

* 

Returns  : 

pointer 

to  end  of  result  string 

12 

* 

1  3 

* 

Calls: 

none 

14 

*/ 

15 

16 

char  ‘concat 

(first/  second/  result) 

char  ‘first/ 

1  7 

‘second/ 

IS 

‘result/ 

19 

{ 

2  J 

while 

(‘result** 

=  ‘first ♦♦); 

/*  Copy 

first  strinq 

21 

--result; 

/»  Back 

up  over 

nu  l 

22 

while 

C  *  resul t ♦♦ 

=  ‘second**); 

/»  Copy 

second 

string 

23 

--result; 

/*  Back 

up  ever 

nu  l 

?4 

return 

(result); 

25 

) 

»/ 


*/ 
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1 


1 

2 

3 

4 

5 

6 
7 
f» 
V 

U 

11 

12 

13 

14 

15 

16 
1  7 
18 
15 
20 
21 
22 

23 

24 

25 

26 
27 
23 

29 
31 

31 

32 

33 

34 

35 

30 
3  7 
3* 
34 

4.; 

41 

4? 

43 

44 

45 

46 

47 
46 
4» 

5" 

51 

52 
51 


M 

/  *  *  *  * 

NAME: 


copy  f i  l  e  < ) 

FUNCTION: 

Copy  the  contents  of  one  open  file  to  another. 

CALLING  SEQUENCE: 

int  fidin 
nt  f  i  lout 

PARAMETERS : 

fidin  file  descriptor  of  source  file  opened  for  reading, 

fidout  file  descriptor  of  destination  file  opered  fcr  writing. 

RETURNS  : 

nothing. 

ALGORITHM: 

The  routine  first  seeks  to  the  start  of  both  files  in  case  ether 
proceaures  have  used  the  file  descriptors.  Then  the  routine  reacs 
from  the  source  file  in  a  loop  and  writes  the  sane  nurber  of  bytes 
to  the  destination  as  it  read. 


CALLS: 

Unix  calls: 

S'  ek  O 
read  (  ) 
writeO 
P'rror ( ) 

CALLED  BT: 

pans  (  main  program  ) 
rest  Orel) 
save  <) 


HISTORY  : 


written  by  Dan  Putnam  -  fall  1978 
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57 

copyfilef  fidin#  fidout) 

descriptor  of  source  file 

57 

in  t 

f  i  d  1  n  ; 

/• 

59 

int 

f  idout ; 

/* 

descriptor  of  destination 

6  J 

61 

int  mbytes# 

62 

char  bufferC5123» 

bi 

64 

seek (  f idin#  0*  0) # 

/*  f  root  beginning 

65 

seek(  fidout#  0#  0)# 

/*  from  beginning 

6o 

whilef  (nbytes  =  read< 

f idi n# 

buffer#  512))  >  0  ) 

67 

{ 

6/1 

i  *  (.  ur  i  t  e  (  fidout  # 

buffer# 

nbytes)  <  nbytes  ) 

69 

< 

7  3 

perrorC’save  write  error'*)# 

71 

close!  fidout 

) ; 

77 

return; 

73 

3 

74 

) 

75 

76 

77 

iff  nbytes  <03 

* 

7  fi 

< 

79 

pe  rror  < "copy f i  l  e# 

read  error**)# 

80 

3 

31 

> 

»/ 

*7 


*/ 

*7 


72 
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» 

NAME  : 

ri“'.p() 

FUNCTION: 

r-e  t  a  tine  of  user  response  form  the  terminal. 

CALLING  SEQUENCE: 

char  *bfr 
i nt  re  sp  O 

PARA NITERS: 

bfr  Points  to  buffer  for  user  response. 


RETURNS : 


Returns  the  number  of  characters  in  the  response  exclusive  of  *\r*» 
or  returns  -1  on  end-ol-file. 

ALGORITHM: 

The  routine  works  with  i  Luilt  in  linit  of  RC  characters  per  response 
Characters  are  read  from  the  terminal  until  either  8C  are  read  or 
an  end-of-line  or  end-of-file  is  encountereo.  If  the  last  character 
is  an  end-of -line*  then  it  is  overwritten  with  a  null. 


CALLS: 

nothing. 

CALLED 

BY  : 

pms  (  main  program  ) 

s‘  lect ( ) 

k  <=  y  word  ( ) 

l  ist  <) 

g'teffO 

gr  t  smons  < ) 

HISTORY  : 


ritten  by  oar.  Putnam  -  fall  1978 
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57 

58 

59 
6  J 
61 
62 

63 

64 

65 

66 

67 

68 
69 
7C 

71 

72 

73 

74 

75 

76 

77 

78 

79 
50 
81 
82 

83 

84 

85 

86 

87 

88 
■4  9 
9  5 


char  *bfr; 

< 

7*  character  buffer  for  user 

register 

in  t 

countdown; 

register 

in  t 

chr; 

reg i s  t  er 

char 

*ptr» 

response 


count  'town  *  8AXCHR; 
ptr  =  t-tr; 

do 

< 

»>-tr  +  *  =  chr  =  netcharC); 


i f (  chr  «*  *\0*  > 
return!  -1  ); 

} 

uhilef — countdown  88  chr  !=  ’Nn*); 

i f  C  chr  ! =  'Vo') 

< 

while (getcharl )  !*  • \n •>,*  /*  flush  input 

•ptr  =  c; 

> 

else 

< 

*< — ptr)  =  j;  /*  replace  CR  by  null 


return!  ptr  -  bfr  ); 


) 


74 


in. . mot  ia  put** 
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1 

2 

3 

4 

5 

6 
7 

v 

V 

1C 

11 

1? 

13 

14 

15 

16 

1  7 
Ifc 

19 

20 
21 
2? 

23 

24 

25 

26 
27 

2  E 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3* 

39 

40 

41 

42 

43 

44 

45 

46 

47 
4d 
49 
5 1 

51 

52 

53 

54 

55 

56 


« 

/  *  *  *  * 
NAME  : 


copy ( ) 
f UNCTION: 

Move  characters  from  one  string  to  another  and  update  pointers 
to  source  and  destination  lor  subseouent  calls. 

CALLING  SEQUENCE: 

char  “source 
char  *  *de  s  t 
char  delimiter 
int  maxchars 

PARAMETERS; 

source  is  the  address  of  a  pointer  to  the  source  character  string, 
tnis  pointer  is  updated  to  point  past  the  last  character  aovec. 

dest  is  the  address  of  a  pointer  to  the  destination  string. 

This  pointer  is  left  pointing  past  the  null  character  terminating 
the  string  that  was  moved. 

delimiter  is  the  character  signalling  the  end  of  the  source  s’rinq. 
If  this  character  is  not  encountered.  a  null  character  will  halt 
the  transfer  of  characters. 

m anchors  is  the  site  Of  the  destination  string.  If  there  are 
more  characters  to  be  moved  than  maxchars.  a  -1  is  returned 
and  copy  does  not  overwrite  the  end  of  the  buffer. 


R  r  T  UK  NS : 


-1  if  the  site  limitation  given  by  maxchars  can  not  be  met. 

otherwise  copy  returns  the  number  of  characters  moveo  including 
the  null  character  terminating  the  destination  string. 

ALGORITHM  : 

The  ccpy  routine  skips  over  leading  blank  or  tab  characters. 

Embeaded  substrings  of  Ll3nks  or  tabs  in  the  source  string 
are  condensed  to  one  olank.  The  transfer  of  characters  stops 
when  the  deli ir iter  character  or  a  null  character  is  erecuntered 
or  when  the  site  limitation  given  by  maxchars  is  met. 

The  source  pointer  is  never  movec  past  a  null  character. 

In  this  case,  subsequent  calls  to  cony  move  an  empty  strinq. 

If  the  delimiter  is  not  null  and’  it  is  encountered  before  a  null, 
then  the  source  pointer  is  moveo  past  the  delimiter. 

Thus,  successive  calls  can  move  substrings  separated  ty  the  celimiter. 
The  destination  string  is  null  terminated  and  the  destination 


75 
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37 

38 
59 
61 
61 
62 

63 

64 
63 
66 

67 

68 
69 
7C 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
<8 
29 
9  ' 

91 

92 

93 

94 

95 

96 

97 

98 

99 
ICG 
101 
1  C2 
103 
1C4 

105 

106 

107 

108 
109 
1  in 

111 

112 


pointer  is  (eft  pointin'!  past  the  null.  Thus,  repeated  calls 
to  copy  can  move  strings  intu  a  shared  buffer. 

CALLS : 

not  h i ng 
CALLED  BY: 

all  kinds  of  procedures  that  move  strings  around. 

COMMENTS : 

copyl)  can  be  used  for  several  different  purposes: 

1.  cleaning  a  string  to  eliminate  extra  blanks  or  tabs. 

2.  parsing  a  line  into  fields. 

3.  counting  the  number  of  fields  on  a  line. 


HISTORY  : 

written  by  Dan  Putnam  -  fall  197»' 


copytsource.  dest.  delimiter,  maxchars) 

char  resource;  /*  points  to  a  pointer  to  source  striny  *7 
char  “dest ;  /*  points  to  pointer  to  dcslioation  »/ 
char  delimiter;  /»  stop  copying  when  this  char  is  found  */ 
int  muxchars;  /•  size  of  destination  */ 
t 

register  char  *src;  /*  copy  of  source  for  speed,  esthetics  */ 
register  char  chr;  /*  temp  for  *src  to  save  inairectior  »/ 
register  int  slack;  /*  room  left  in  destination  »/ 
char*dst;  /*  points  to  destination  *  / 
int  ret;  /*  return  value  */ 


sre  =  ‘source; 
dst  =  *dest; 

slack  =  maxchars.  /*  available  room  •/ 

1 f ( slack  <*  C) 

< 

returnf  -1  )« 

> 


/*•*•*  first  throw  away  leading  blanks  ar.d  tabs  *•*••**••/ 

wMlef*$rc  **  •  *  II  *src  **  ’it’) 
src*«; 
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113 

114 

115 
11o 
117 
IIS 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 

129 

130 
1  31 

132 

133 

134 

135 

136 

137 
1  33 

139 

140 

141 

142 

143 

144 

145 

146 

147 
1  43 
149 
1  5'J 

151 

152 

153 

154 
1  55 

156 

157 
1  53 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


/•****  now  run  through  the  rest  of  the  string  ******•»/ 

do 

< 

i f <  (chr  =  «src)  ==  0  ) 
creak; 

src**;  /*  not  null/  so  move  on  •/ 

iff  chr  s:  delimiter  ) 
breet; 


iflchr  --  •  •  ||  chr  =  =  ’It*)  /*  if  blank  or  tat  •/ 

C 

whilef  (chr  =  *src)  *=  •  •  It  chr  -  -  ' \t  ’  ) 
s  r  c  *  * ; 


if<  chr  ==  0  ) 
break; 


iff  chr  **  delimiter  > 

{ 

srt+a;  f»  move  past  delimiter  */ 

break ; 

> 


chr  =  •  •; 

> 

*  s t ♦  ♦  *  chr.' 
i-hil>  (  --slack  ); 


if<  slack  >  0  ) 

{ 

ret  -  maxchars  -  slack  ♦  1» 

> 

else 

{ 

/*»»***  looks  like  we  didn't  find  the  end  but  ran  out  of  room  •/ 

--dst  ; 
ret  =  -1; 

/*»»***  move  src  past  delimiter  or  up  to  null  byte  *7 

wnilef  (chr  -  *src)  !*  oelimiter  R8  chr  !=  0  ) 
s  r  c  ♦  ♦  ; 
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169 

170 

i  f  (chr  ! - 

1  71 

s  r  c  ♦  ♦  ; 

172 

175 

> 

17* 

175 

*dst*+  =  c; 

176 

177 

♦source  =  srcJ 

178 

♦oest  =  dst; 

179 

returnt  ret  )# 

180 

) 

/*  leave  dst  pointing  past  null  byte 


»/ 
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1 

1 

/* 

EXECUTE  (Note : 

Borrowed  from 

CCL0S* 

2 

» 

execute  -  send  a  string  to  sh  to  be  executed 

4 

c 

execute  (  command  )  7  char  ‘command  7 

J 

6 

forks  off  a  process  to  execl  the  shell  with 

a  one-line 

r 

command  in  the  string  "command*’.  waits  for 

return  of 

a 

9 

the  child  process . 

10 

Signals  are  set  up  so  quits  will  interrupt 

the  child 

11 

process*  not  the  parent. 

12 

13 

Calls:  fork*  signal*  execl*  wait 

14 

0  lob  a  t  s :  none 

15 

Last  modification:  31  mar  77 

16 

17 

*/ 

18 

17 

execute  (command)  char  ‘command* 

20 

{ 

* 

21 

register  i nt  child* 

22 

signalstatus* 

23 

int  waitstatus; 

24 

25 

if  ((child  *  fork  ())  <  0) 

/*  Set  up  the  fork 

26 

return  (-1)* 

27 

28 

/* 

The  child  does  the  execl  using  the  argument 

string  */ 

29 

if  (child  -  =  0)  < 

30 

signal  (2*  0)7 

31 

execl  C'/tinfsh”*  "sh”*  "-cM* 

command*  0)7 

32 

> 

33 

34 

signalstatus  =  sicnal  (2*  1)7 

35 

while  (wait  (Kwaitstatus)  !=  child)* 

/*  Wait  for 

child 

36 

signal  (2*  signalstatus)* 

37 

38 

return  (0)7 

39 

> 
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1 

2 

3 

4 

5 

6 
7 
& 
9 

I  J 

II 
12 

13 

14 

15 
15 
17 
1? 

19 
2C 
21 
22 

23 

24 

25 

26 

27 

28 

20 
31 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 


« 

/  A  *  •  * 

NAMES 


t abl e  <) 

FUNCTION: 

To  look  up  a  character  string  in  an  array  of  string  pointers. 

CALLING  SEQUENCE: 

char  ‘string 
char  “ptrarray 
int  tabled 

PARAMETERS  : 

string  -  points  to  a  null  terminated  string  of  characters, 
ptrarray  -  points  to  a  null  terminated  array  of  character  pointers. 

RE  TURNS  : 


-1  if  the  string  is  not  found  in  the  array  of  pointers. 

otherwise  tabled  returns  the  inaex  of  the  first  pointer 
in  the  array  pointing  to  an  identical  string. 


EXAMPLE  : 


Define  "name"  and  "nametable"  as  follows: 

char  ‘name  "jody", 

char  *nametableC3 

< 

"f red", 

"jody", 

"pat", 

0 

>; 

Then  the  call  "tablet  name,  nametable)"  returns  1  to  incicate 
that  "nametableCd"  rnints  to  the  same  strinj  as  "name". 
However,  "tablet  "joe",  iu  .able  )"  returns  -1,  since  "joe" 
is  not  listed  in  "nametable’. 


5  ALGORITHM: 

S  1 

The  "ptrarray"  is  searched  sequentially,  and  if  a  poirter  in  the 
vi  array  points  to  a  string  agreeing  with  that  indicateo  by  the 

"strinj"  argument*  then  "table"  returns  the  index  of  that  element 
<  in  the  array.  If  a  null  pointer  is  found  in  the  array,  then  -1 

is  returned. 
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57 

58  CALLS: 

59 

60  comparO  A  routine  borrowed  from  CELDS  to  test  whether 

61  string  pointers  roint  to  identical  strings. 

62 

63  CALLED  BY: 

64 

65  usually  routir.es  that  need  to  parse  comirand  strir.os  or  check 

66  for  •‘legal"  values  of  string  variables  from  among  those  in  a 

6 7  small,  pre-defined  list. 

08 

69  HISTORY: 

7.1 

71  written  oy  Dan  Putnam  -  fall  1978 

72 

74 

75 

76  t ab le ( s t r i ng . p t rar r ay ) 

77  char  *string;  7*  pts  at  null  terminated  string  */ 

78  char  “ptrarrayi  7*  pts  at  null  term  array  of  char  ptrs  •  / 

79  { 

81  register  char  “ptrptr;  /•  copy  of  ptrarray  for  speed  *7 

81  register  char  *ptr;  /*  cot y  of  ‘ptrptr  for  speed  *7 

82  register  int  i;  7*  last  loop  counter  *7 

83 

84 

85  ptrptr  =  ptrarray; 

86  forli  =  c;  (ptr  =  *ptrptr*+);  i+O 

87  { 

33  i  f  ( c o.rpa  r  <  s  t  r  i ng.pt  r )  *=  C) 

89  return(i); 

9.1  > 

91 

92  raturn(-l); 

95  > 
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1  # 

3 

4  NAME: 

5 

6  save () 

7 

£  FUNCTION: 

9 

IT  Save  the  contents  of  the  current  scratch  file  of  id  numbers  in 

11  a  file  named  by  the  input  character  string. 

12 

13  CALLING  SEQUENCE: 

14 

15  char  ‘filename 

16 

17  PARAMETERS: 

13 

19  filename  Points  to  the  string  naeing  the  output  file. 

20 

21  RETURNS: 

22 

23  nothing. 

24 

25  ALGORITHM: 

26 

27  The  routine  attempts  to  create  a  file  named  by  the  "filename*' 

28  argument.  If  this  attempt  fails*  the  routine  prints  a  message 

29  to  that  effect  and  returns.  If  it  succeeds*  then  the  "copy f i  le (>“ 

30  routine  is  used  to  copy  the  contents  of  the  current  scratch  file 

31  to  the  file  vhich  has  been  created. 

32 

33  CALLS: 

34 

35  copyfileO 

36 

37  Also*  Unix  calls: 

36 

39  creatO 

40  seekO 

41  perrorO 

42 

43  CALLED  BY: 

44 

45  peas  (  main  program  ) 

46 

47  HISTORY: 

43 

49  uritten  by  Dan  Putnam  -  fall  197-8 


5  J 

51  a.  . . . . . . . . . 

52 

53 

55  save (  filename  ) 

56  char  f i lenaaeC);  /»  string  naming  output  file  »// 
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57  < 

56  extern  int  phase; 

extern  int  f i dse r at cht 23* 
int  fidin; 
int  fidout; 

fidin  =  fidscratcht  phase  3; 
seek (  fidin*  0/  0  )* 

if<  (fidout  =  create  filename*  0666))  <  C  ) 

< 

perror("sa*e  can’t  create  file")* 
return; 

> 


copyfileC  fidin*  fidout  ) 
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1  » 

2 

3 

4  NAME: 

5 

6  restoreO 

7 

■>  FUNCTION: 

9 

10  Restore  <•  list  of  data  accession  numbers  to  current  status. 

11 

12  CALLING  SEQUENCE: 

13 

14  c ha r  * f i l ename 

15 

16  PARAMETERS: 

17 

16  filename  Points  to  string  naming  the  file  of  accession  numbers. 

19  It  filename  points  to  a  null  string/  then  the  previous 

20  list  is  restored  to  current  status. 

21 

22  RETURNS: 

23 

24  nothing. 

25 

26  ALGORITHM: 

27 

2P  The  "filename"  parameter  is  checked  to  see  if  it  points  at  a  null 

29  string,  if  so.  then  the  global  "phase"  variable  is  reset  to  Switch 

30  the  scratch  files.  If  the  "filename"  parameter  points  at  a  non-null 

31  string/  then  the  routine  attempts  to  open  the  tile.  If  the  open 

32  is  successful/  then  "phase"  is  reset  and  "copyfileO"  is  called 

33  to  copy  the  contents  of  the  input  file  into  the  current  file. 

34 

35  CALLS: 

36 

37  copyfileC) 

38 

39  Also/  Uni*  calls: 

4  b 

41  openO 

42  perrorf) 

43 

44  CALLED  BY: 

45 

46  p:.ms  (  main  program  ) 

47 

48  HISTORY: 

49 

50  written  by  Dan  Putnam  -  fall  1978 

51 

52  ******* ******** ******** ****** . ******** . *******»*»•»»***»/ 


53 

54 

55 

56  restorel  filename  ) 
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57 

char  f i  lenamet 3* 

/* 

names  file  to  be  read  in  . 

*/ 

58 

59 

extern  int  phase; 

/* 

for  switching  scratch  files 

*/ 

60 

extern  int  f i dsc rat c hC2J» 

/• 

scratch  file  descriptors 

»/ 

61 

int  fidinJ 

/• 

descriptor  for  restored  file 

«/ 

62 

int  fidout; 

/« 

copy  of  scratch  descriptor 

*/ 

63 

64 

65 

if<  ‘filename  ==  0  ) 

66 

< 

67 

/******  phase  switch  effectively  restores  old  list  */ 

6  6 

69 

phase  »  1  -  phase; 

7  . 

return; 

/♦ 

that's  all  there  is  to  it 

*/ 

71 

3 

72 

73 

74 

if<  (fidin  =  open!  filename#  C>)  < 

0  ) 

75 

< 

76 

perror ("restore  can't  open  file 

’•)#• 

77 

return; 

78 

> 

79 

80 

phase  =  1  -  phase; 

/• 

switch  stratch  files 

•  / 

81 

82 

83 

fidout  =  fidscratcht  phase  3; 

7* 

write  to  in-phase  file 

*/ 

84 

85 

copyfilel  fidin#  fidout); 

86 

} 
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1  # 

2 

3 

4  NAME: 

5 

6  peekd 

7 

h  FUNCTION: 

9 

16  Invoke  the  editor  on  the  keyword  tile  e o r respond i ng  to  the 

11  category  name  <|iven  by  the  input  argument  string. 

12 

13  CALLING  SEQUENCE: 

14 

15  char  »category 

16 

1/  ° AR  AME  T ER S  : 

18 

19  category  String  naming  the  category  that  the  user  wants 

2C  to  inspect. 

21 

22  RETURNS: 

23 

24  nothing. 

25 

26  ALGORITHM: 

27 

28  The  routine  begins  by  checking  to  see  that  "category"  matches 

29  an  entry  in  the'  "keynames”  array.  The  index  of  a  matching 

31  string  in  that  array  is  the  keyword  tile  nuirter  cf  the  corresponcing 

31  file  of  keywords.  This  number  is  appended  to  the  keyword  file 

32  prefix  and  the  editor  is  invoked  on  this  file  using  “executed". 

33 

34  CALLS: 

35 

36  tibled 

37  concatl) 

38  executed 
3V 

41  Also.  Unix  routines: 

41 

42  loevd 

43 

44  CALLED  BY: 

45 

46  pams  (  main  program  ) 

47 

48  HISTORY: 

4V 

50  written  by  Dan  Putnam  -  fall  1978 

51 

52  . . . . . . . . . . . . . 

53 

54 

55 

56  p«ek(  category  ) 
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57 

53 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
69 
7  J 

71 

72 

73 

74 

75 


char  ‘category; 

C 

char  comnandC 8 D] ; 
extern  char  *keyprefix7 
extern  char  *keynamesC]; 
int  nu«: 


/*  name  of  a  keyword  category 

/*  argument  string  for  execute  routine 
/*  keyword  file  nane  prefix 
/»  names  of  categories 
/*  category  number 


iff  ( num  *  t ab l c ( ca t egory *  keynames))  <  C  ) 

< 

printf ( ” *  J  s  *  is  not  a  keyword  c ategory Vn”*  category); 
return; 

) 


concat (  "ed  *'*  keyprofix*  command); 
concatf  command*  locv(0*num)*  commana  ); 


> 


execute!  command  ); 
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1 


1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

1C 

11 

12 

13 

14 

15 

16 
1  7 
la 
19 
2C 
21 
22 

23 

24 

25 

26 

27 

28 
2V 
3.) 

31 

32 
53 

34 

35 

36 

37 

33 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 


n 

/«*•* 
NAME  : 


keyword  <) 

FUNCTION: 

Lookup  a  string  and  prompt  for  correct  category  in  case  of  Duplicates. 
CALLING  SEQUENCE: 

char  ‘term 

struct  marker  ‘keyword!). 

PARAMETERS: 

term  Points  to  the  string  to  be  looked  up. 

RETURNS: 

keyword!)  Points  to  a  marker  struct  which  contains  data  on  the 

string  which  has  been  looked  up. 


ALGORITHM: 

Post  uf  the  work  is  done  by  the  "lookup!)"  routine;  this  routine 
is  primarily  just  a  user  interface  to  " l ookup ( ) " .  A  call  tc 
"lookup!)"  is  performed  with  the  parameters  set  to  find  all 
occurences  of  the  string  in  the  oatatase  and  check  the  spelling 
character  tor  character.  It  no  instances  are  found,  then  a  message 
to  that  effect  is  printed  and  a  aero  pointer  is  returrec. 

If  more  than  one  instance  is  found,  the  user  is  prompted  to 
name  which  category  he  wants.  A  pointer  to  the  appropriate 
marker  struct  is  returned. 


CALLS: 


lookup !  > 
respO 

CALLED  BY: 

letter!) 

pirns  !  main  program  ) 
select!) 


HISTORY: 


written  by  Dan  Putnam  -  fall  1973 


1 
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57 

56 

59 

6T 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
73 
79 
811 
81 
82 
93 

84 

85 
96 
87 
£3 

89 

90 

91 

92 

93 

94 

95 

96 

97 
93 
99 

no 

101 
102 
1C3 
1G4 
i  C5 
lOo 
107 
103 

109 

110 
111 
112 


Nine  lude 
H de  f i ne 


"st  ruct de  f s  .  i “ 

PAX  F INO  5C 


/  »  Barker  dect  *7 

/*  found  array  site 


key  word ( t e  r« ) 
char  »ten«; 

extern  char  ‘keyname s T 3  * 
char  bufferCPo3; 
int  index; 
int  f i lerium; 
static  struct  marker 
int  copies; 


/»  lookup  this  term 

/*  names  of  keyword  categories 
/»  for  oettino  user  response 
/*  loop  control:  founo  words 
file  number  of  a  found  word 
/»  iaentical  cor  f  e* 
counts  number  of  copies 


/« 

COpylisttMAXFlhDj; 

/• 


/«***»**  lookup:  any  category*  check  strings  *7 

copies  =  lookup  (te  rni  *  -1*  1*  copylist*  MAXFIND); 


/**»**»  if  copies  >  1/  prompt  for  correct  category  */ 

it<  copies  <=  0  ) 

{ 

pr int f ( "can #t  find  •Js’Xn"*  term); 
return <Q); 

3 

if(  copies  »»  1  ) 

{ 

index  *  0 ;  /*  copylisttC3  points  to  the  only  find 

J 

else 

t 

/♦**»»»  prompt  for  the  correct  category  *7 

pr int f ("Whi ch  cat egory ? \n") ; 

fort;;) 

t 

fertindex  =  0*  index  <  copies;  index“) 
t 

filenum  -  copylistC  index  J  .  file* 

printfl"Xd:  Xstr.”*  index  *  1*  keynamesl  filenum  3); 

) 

resp(  buffer  )* 

index  =  atoi(  buffer  )  -  1* 

if<  index  >=  3  *8  index  <  copies  > 

break;  7*  a  valid  response 

> 

> 
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113 

114  retur:i(  KcopylistC  index  3  >; 

115  > 
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1 

2 

3 

4 

5 

6 
7 
A 
9 

1  2 
1 1 
12 
1  5 

14 

15 

16 
17 
1  h 
IV 
2D 
21 
22 

23 

24 

25 

26 
2/ 
28 
27 

30 

31 

32 
53 

34 

35 

36 

37 
3o 
39 

4  3 

41 

42 

43 

44 

45 

46 

47 

48 

49 

5  j 

51 

52 

53 

54 

55 

56 


U 

/  *  *  *  * 
NAME  : 


hashf n( ) 

JUNCTION: 

Convert  a  nu  1 1  - 1  err  i  na  t  ed  character  string  to  a  3-wora  array 
of  integer  hash  values* 

CALLING  SEQUthCt: 

char  ‘string 
int  ‘hashout 

PARAMETERS  : 

strinn  -  points  to  nu l l -t e r m i na t e d  string  to  be  hashec. 
h  .  shout  -  points  to  output  array  of  3  hash  values. 


RETURNS  : 


nothing. 

ALGORITHM: 

One  pass  is  made  through  the  string  lor  each  of  the  3  outiut 
nash  values.  On  a  given  pass.  hashfnl)  treats  the  characters 
in  the  input  string  as  5.  6.  or  7  tit  strings,  respectively. 
This  is  accomplished  oy  masking  off  the  aipropriate  number  ot 

high  order  oils  in  each  character  (  i.e.  5/  2.  or  1  ). 

The  algorithm  effectively  treats  the  input  string  as  a  tit 
string,  which  it  "wraps  around"  the  cutput  hash  value  irteger. 

The  routine  initializes  the  hash  values  to  zero  and  processes 
the  input  characters  until  the  null  terminator  is  en ccuntereo. 
As  each  input  character  is  eons ioerec.  tne  lew  order  tits 
are  e*c l us i ve-ored  into  the  hash  value  after  beinci  shitted 
past  the  bits  from  tne  previous  character.  if  this  results 

in  losing  bits  off  the  eno  of  the  integer,  the  lost  bits 

are  e xc l us i ve-ored  onto  the  low  order  bits. 

For  example.  when  the  first  hash  value  is  computeo.  the 
first  three  characters  of  a  string  contribute  their  lew  order 
5  hits  to  give  the  lo*  orcer  15  bits  of  the  integer  hash  value. 
The  low  order  5  bits  of  the  ne»t  character  are  exclusive -oreo 
into  the  output  integer  as  follows.  The  low  order  bit  is 
e * c l us i ve -or ed  onto  the  remaining  high  tit  of  the  integer,  and 
the  next  4  bits  are  ex c l us i vt -o r ed  onto  the  first  4  bits  of  the 
inteier.  The  fifth  character  is  shifted  into  place  beginnfno 
with  the  fifth  bit  of  the  output  int»ger. 


CALLS: 
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57 

58  nothing . 

59 


6  J 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7  4 

75 

76 

77 

78 

79 

8  0 
81 
82 
83 
34 
85 
?6 
87 
38 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
1  01 
102 
103 


CALLED  BY: 

hash  The  program  which  creates  the  hashtable  file. 

lookupO  The  routine  used  to  look  up  terms  in  the  keyword 

files. 


HISTORY : 


written  by  Dan  Putnam  -  fall  1978 
COMMENTS : 

The  three  hash  values  generated  by  this  routine  virtually 
i  ientify  strings  uniquely.  The  three  hash  values  are  essentially 
orthogonal  in  the  sense  that  if  two  terms  colliae  under  one 
of  the  hash  functions#  there  is  no  increased  likelyhood  that 
they  will  collide  under  either  of  the  other  two. 

In  a  file  of  about  13»000  english  words#  no  two  woros  were 
found  that  collided  under  both  of  the  first  two  hash  functions. 

When  the  third  function  is  also  considered#  it  seems  virtually 
assured  that  if  two  terms  agree  in  all  three  hash  values#  then 
the  two  words  are  identical.  If  it  is  assumed  that  the  bit  patterns 
of  the  hash  values  are  random#  it  may  be  computed  that  the  chances 
o‘  finding  a  collision  in  a  collection  of  10#C00  words  is  less 
than  one  in  a  million. 


****************< 


int  msskarrayCJ 
i 

15  7* 
077, 
0177, 

>; 

int  nbitarraytJ 

< 

5  # 


154  6# 

105  7# 

1C6  >; 

107 

1C3  hashfnlstring#  hashout) 


109 

char  *stringj 

/• 

string 

to  be  hashed 

•  / 

110 

int  ‘hashout# 

/• 

3  word 

output  array 

‘7 

111 

< 

112 

register  int  numbits; 

/• 

numbe  r 

of  bits  usee  in  Hash 

*/ 
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113 

int  mask l 

/  * 

masks  low  numbit  s 

114 

char  *cpt; 

/* 

points  thru  string 

115 

register  int  chr, 

/ » 

temp  copy  of  »cpt 

116 

register  int  shift; 

/* 

shift  chr  by  this  mary  bits 

1  1  7 

int  h  a shv • 

/  * 

gets  hash  value 

118 

inti* 

/* 

loop  control:  3  hash  values 

1  14 

120 

121 

fort  i  -  C;  i  <  3«  i  ♦  ♦  ) 

122 

{ 

125 

mask  =  mask  a r r ay C i 3 ; 

124 

numbits  =  nb i t a r r ay C i 1 i 

125 

h  a  S  h  v  =  C  ; 

126 

shift  =  o ; 

127 

cpt*Strinn; 

12  8 

whi le  (chr  =  «cptt  +  ) 

129 

< 

130 

1  31 

chr  =7.  mask; 

/*  remove  unwanted  bits 

132 

hashv  =*  (chr  <<  shift); 

/•  shift  into  place 

133 

shift  =  (shift  ♦  numbits) 

&  Cl? 

;  /*  =♦  numbits  mcd  16 

134 

135 

i f  C  numb  its  >  shift) 

/* 

if  we  wrap  around  word 

136 

137 

hashv  =*  (chr  >>  (numbits 

shift)); 

13® 

) 

139 

147 

hashoutCiJ  r  hashv; 

141 

147 

145  > 


> 
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seekt O 


FUNCTION: 


Perform  seeks  Into  files  with  long  offsets. 


CALLING  SEQUENCE: 

iot  fid 
long  offset 

PARAMETERS: 


fid  is  the  file  descriptor  of  en  open  file. 

offset  is  the  offset  from  the  beginning  of  the  file  to  which 
seeklt)  will  seek. 


RETURNS: 


returns  the  seme  value  as  the  seekO  system  cell  returns  to  seeklD. 
-1  signals  an  error  condition. 


ALGORITHM: 


s'-ekli)  tests  offset  to  see  if  the  seek  can  be  performeo  as  an 
ordinary  short  integer  seek.  If  not*  then  seeklO  first  seeks 
by  blocks  (  512  bytes  >  and  then  seeks  the  rest  of  the  way  ty 
bytes. 


CALLS: 


seekl)  -  Uni*  system  call. 


CALLED  BT: 


all  kinds  of  routines  that  read  from  random  locations  in  large  files. 


hISTORT: 


written  by  Dsn  Putnam  -  fall  1978 


seekllfid.  offset) 
int  f  id» 
long  offset; 

< 

struct 


/•  for  accessing  hi  and  lo  words  of  offset 
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57  < 

58  tnt  hi; 

59  int  to; 

60  >; 

61 

62  register  int  code;  /•  return  code  iron  seek 

63  register  int  i» 

64 

65  if(of»set.hi  !»  0) 

66  i 

67  ill  (code  *  seek(fid#  (i  *  offset. /  S12>»  3))  <  0) 

68  < 

89  returnfcode j; 

7"  > 

71 

72  else 

73  returntseek <f id»  (i  «  offset  X  512)#  1)>; 

7*  ) 

75  else 

76  return( seek ( f Id#  offset. te#  0))# 

77  > 
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1/*  C  C  ft  P  A  R  (Note:  Borrowed  fro*  CELOS*  Than* 

2  *  compar  two  null-terminated  strings 

3  * 

4  *  The  chjracters  at  “si"  and  "s2"  are  compared  until  one  terminates. 

5  *  If  the  last  characters  eomparec  are  equal*  aero  is  returnee; 

6  »  it  the  char  from  “si"  is  >  “s 2"*  a  positive  value  is  returned* 

7  *  otherwise  a  negative  value. 

8  * 

9  *  Calls:  none 

10  *  Globals:  none 

11  *  Last  modification:  51  mar  77 

12  * 

13  «/ 

14  int 

15 

16  < 

17 

18 

19 

20 
21 
22 

23 

24 

25  ) 


compar  (si*  s2)  char  *s1* 

*s2; 

register  char  *p* 

*q; 

register  int  greater* 

p  *  si; 
q  *  S2» 

while  ((greater  *  *p  -  «qtt)  »■  0  II  *p*t  !■  0); 
return  (greater); 
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32 

33 

3  4 

35 

36 

37 
33 
39 

4  C 

41 

42 
45 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


NAME  : 


6 

j 

bool () 

8 

9 

FUNCTION: 

10 

Perform  Uoolean 

operations  on  files. 

11 

12 

CALLING  SEQUENCE: 

13 

14 

int  fida 

15 

int  fidb 

16 

int  fide 

17 

int  opcode 

18 

int  boolO 

19 

20 

PARAMETERS : 

21 

. 

22 

fida 

File  descriptor  of  the 

first  argument  file. 

23 

24 

fidb 

File  descriptor  of  the 

second  argument  file. 

25 

26 

fide 

File  descriptor  of  the 

output  file. 

27 

23 

opcode 

Specifies  the  operation 

to  be  performed: 

29 

30 

1  -  file(a)  and 

file(b) 

31 

2  -  tilela)  UR 

filed) 

filed)  EXCEPT  file(b) 


RETURNS: 


Returns  the  number  of  Items  listed  in  the  output  file. 

ALGORITHM: 

The  input  files  are  reed  and  their  contents  are  used  as  indices 
into  the  "check"  array,  yits  are  set  in  the  "check"  array  elements 
to  indicate  whether  a  given  entry  is  present  in  either  cr  both 
of  the  input  files. 

when  the  above  step  is  completed*  a  pass  is  made  through  the 
enecK  array.  The  inoe*  oi  a  "check"  array  element  is  written  to 
the  output  butter  depending  on  its  membership  in  the  input  files 
and  the  value  of  the  "opcode". 


AND 

OR 

EXCEPT 


belongs  to  file(a)  arid  to  filed), 
belongs  to  tileta)  or  to  file(b)  or  both, 
belongs  to  tilela)  but  not  to  file(b). 


Note:  The  "cheek"  array  is  an  array  of  SPMAX  characters*  where 

SPMAX  is  currently  defined  at  SGCU.  This  parameter  should 
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57 

be  targe  enough  for  tone  tine  to  cone#  ana  could  be  set  stltt 

58 

higher  without  exceedina  core  t ini  tat ions .  However#  sorebooy 

59 

probably  ought  to  rewrite  this  routine  to  that  it  loopa  to 

60 

write  the  output  file 

in  segnentt.  That  it#  the  routine  would 

61 

make  a  complete  past  through  toth  incut  filet  in  each  iteration. 

62 

Only  those  values  in  the  current  segment  range  would  be  narked 

65 

in  the  "check”  array. 

64 

65 

CALLS: 

66 

67 

Unix  calls: 

68 

69 

seekl) 

7  j 

read  < ) 

71 

writel) 

72 

73 

CALLED  BY: 

74 

75 

s? lect (  ) 

76 

77 

HISTORY: 

78 

79 

written  by  Dan  Putnam 

-  fall  1978 

80 

81 

82 

83 

84 

n define 

AND 

1 

85 

tfde  f ine 

OR 

2 

86 

ffdef  ine 

EXCEPT 

3 

S7 

*def ine 

MASHA 

01 

88 

*oef ine 

HASKB 

010 

89 

9.: 

»de* ine 

SPMAX 

5C00 

41 

I/define 

lstsi  i 

256 

92 

93 

bool  < < i da, f i dfc# fide, op code) 

94 

int  fida 

/•  file  descriptor  of  first  operand  •/ 

95 

int  fidb 

/*  file  oetcriptor  of  second  eperand  •/ 

96 

int  fide 

/*  file  descriptor  of  resultant  •/ 

97 

int  opcode; 

/•  AND#  OR  or  EXCEPT  »/ 

96 

< 

99 

char 

checkCSPMAX J; 

t*  check  list  for  nenbership  in  lists  •  / 

100 

int 

listCLSTSm; 

/•  buffer  for  input  and  output  lists  •/ 

1C1 

regi 

ster  int  j# 

/•  fast  loop  counter  •  / 

1 02 

rei  i 

ster  char  »checkptr; 

/•  points  thru  check  array  •  / 

103 

regi 

ster  int  spid; 

/*  id  number  of  source  permit  in  lists  •/ 

1C4 

int 

•listptr#  /*  poi 

nts  thru  list  buffer  •/ 

105 

int 

•endlitt; 

/*  narks  end  of  list  array  ♦/ 

1  06 

int 

aaxa; 

/•  max  so  id  in  file  a  »/ 

107 

int 

tub; 

/•  max  sp  id  in  file  b  •/ 

108 

int 

male# 

/•  upper  bound  of  elements  in  result  •/ 

109 

int 

count; 

/•  tor  returning  si*e  of  resultant  file  •/ 

110 

111 

112 

/**#*««  first#  clear  check 

array  */ 
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11} 

m 

115 

116 
117 
11} 

119 

120 
121 
122 

123 

124 

125 

126 
127 
123 
12  7 

130 

131 

132 

133 

134 

135 

136 

137 

138 
135 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 
156 
159 
16U 
161 
162 

163 

164 

165 

166 

167 

168 


checkptr  =  check; 
j  *  sppa»; 
do 

*checkptr*e  *  0» 
»h  i  le  j  ); 


/*«**»*  run  thru  tile  a  cheeking  sp*s  found  in  list 

seek ( f Ida/ 0/0) ;  /*  make  sure  we  net  whole  file 

maxa  =  -i;  /*  init  to  find  max  in  file  a 

wh  i  let  (j  *  read(  f  ida*  list*  LSTS1Z  *  si  le'of  C  *  l  i  st  >  ) )  >  0) 
t 

j  a 72;  /*  j  *  number  of  ints  read 

listptr  -  list; 

uhilelj—  &S  (spid  *  «listptr*a>  !=  -1) 
max  a  3  maxa  >  spid  ?  maxa  :  spid> 
check [spidl  »|  HASKA; 

> 

iflspid  ==■  -1) 
break; 

) 


/***»*•  run  thru  tile  b  checking  sp*s  found  in  list 

seek ( f idbrO/0) ;  /*  make  sure  we  get  whole  file 

maxb  *  -1;  /*  init  to  find  max  in  file  b 

ahilel  (j  =  readlf idb»  list*  LSTS1Z  *  si teof (» l i St ) ) )  >  C) 
{ 

j  */  2;  /*  j  -  nusber  of  ints  read 

listptr  =  list; 

abilelj—  SR  Ispid  *  «listptr»«>  Is  -1) 

< 

maxb  =  maxb  >  spid  ?  maxb  :  spid; 
checktspid]  *|  HASKB; 

) 

iflspid  =*  -1) 
creak ; 

> 

/**••••  now  run  thru  the  check  array  to  get  output  file 
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169 

170  listptr  -  list; 

171  end  It st  =  list  ♦  LSTSIZ; 

172  checkptr  *  check; 

173  seekff idc#0#0);  /*  start  at  the  beginning  of  the  file  */ 

174  count  *  0»  /*  init  count  to  aero  »/ 

175 

176 

177 

178  sui tch (opcode) 

170  < 

180 

181  case  AND: 

182  naxc  -  naxa  <  naxb  ?  maxa  :  naxb; 

183 

134  forlj  *  0;  j  <=  naxc;  j**) 

185  < 

188  iff  ‘checkptr**  *=  (HASKA  |  MAS  KB )  > 

187  < 

188 

189  *listptr**sj; 

190  count**; 

191  itflistptr  >*  endlist) 

192  yr i te (f idee (l i s tpt r  *  l ist)/ (endlist  -  list)  *  2); 

193  > 

194  1 

195  break#  /*  end  case  AND  */ 

196 

197  case  OR: 

198  naxc  =  am  >  naxb  7  naxa  :  naxb; 

199 

200  forfj  *  0>  j  <»  naxc;  j**) 

201  i 

2C2  iff  *cheekptr**  !=  0  > 

203  f 

2J4 

2C5  *1  istptr**  =  j ; 

2C6  count**; 

71 '7  itflistptr  >=  endlist) 

208  uriteff idc/flistptr  -  list)#  fendl ist  -  list)  *  2); 

209  ) 

210  > 

211  break;  /*  end  case  OR  */ 

212 

213  case  EXCEPT: 

214  N  naxc  *  naxa; 

215 

216  '  forlj  *  3#  j  <*  naxc;  j**) 

217  < 

218  /»**•*•  ff  a  and  not  b  •/ 

219 

220  iff  f‘checkptr  8  MASKA)  88  !<«checkptr  8  HASK6)  > 

221  < 

222 

223  •listotr**  ».j» 

224  count**# 
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’25 

226 

227 

126 

2 29 

230 
’31 
’32 

233 

234 

235 

236 

237 

238 


ifClistptr  >*  endlist) 

write<iide»(Hstptr  *  list), (enolist 

> 

cheekptf 

> 

break;  /•  end  case  EXCEPT 

> 


/****•«  terminate  list  and  write  out  the  remainder  */ 

*lisntr**  *  -i; 


240 

241 


uritedidc,  list,  (listptr  -  list)  *  2>; 


list) 


2 

3  > 


ret  urn ( count ) » 


CERL  DISTRIBUTION 


Chief  of  Engineers 
ATTN:  Tech  Monitor 
ATTN:  OAEN-RD 
ATTN:  DAEN-MP 
ATTN:  OAEN-ZC 
ATTN:  DAEN-CW 
ATTN:  DAEN-RM 
ATTN:  OAEN-CCP 
ATTN:  OAEN-ASI-L  (2) 

US  Army  Engineer  Districts 
ATTN:  Library 
Alaska 
Albatin 
Albuquerque 
Baltimore 
Buffalo 
Charleston 
Chicago 
Detroit 
Far  East 
Fort  Worth 
Galveston 
Hunt i ngton 
Jacksonville 

Japan 

Jidda 

Kansas  City 

Little  Rock 

Los  Angeles 

Louisville 

Memphis 

Mobile 

Nashville 

New  Orleans 

New  fork 

Norfolk 

Omaha 

Phi ladel phia 

Pittsburgh 

Port  land 

Riyadh 

Rock  Island 

Sacramento 

San  Francisco 

Savannah 

Seattle 

St.  Louis 

St.  Paul 

Tulsa 

Vicksburg 

Wal la  Walla 

Wilmington 

US  Army  Engineer  Divisions 
ATTN:  Library 
Europe 
Huntsville 

Lower  Mississippi  Valley 
Middle  East 
Middle  East  (Rear) 

Missouri  River 
New  England 
North  Atlantic 
North  Central 
North  Pacific 
Ohio  River 
Pacific  Ocean 
South  Atlantic 
South  Pacific 
Southwestern 

Waterways  Experiment  Station 
ATTN:  Library 

Cold  Regions  Research  Engineering  Lab 
ATTN:  Library 

US  Government  Printing  Office 
Receiving  Section/Depository  Copies  (2) 

Defense  Technical  Information  Center 
ATTN:  DDA  (12) 

Engineering  Societies  Library 
New  York,  NY 

FESA.  ATTN:  Library 

ETL,  ATTN:  Library 

Engr.  Studies  Center,  ATTN:  Library 


Inst,  for  Water  Res.,  ATTN:  Library 

Amy  Instl.  and  Major  Activities  (CONUS) 

DARCOM  -  Olr. ,  Inst. .  ft  Svcs. 

ATTN:  Facilities  Engineer 
ARRADCOM 

Aberdeen  Proving  Ground 

Army  Matls.  and  Mechanics  Res.  Ctr. 

Corpus  Christi  Amy  Depot 

Harry  Diamond  Laboratories 

Dugway  Proving  Ground 

Jefferson  Proving  Ground 

Fort  Monmouth 

Letterkenny  Amy  Depot 

Natick  Research  and  Dev.  Ctr. 

New  Cumberland  Army  Depot 
Pueblo  Army  Depot 
Red  River  Army  Depot 
Redstone  Arsenal 
Rock  Island  Arsenal 
Savannah  Army  Depot 
Sharpe  Amy  Depot 
Seneca  Amy  Depot 
Tobyhanna  Army  Depot 
Tooele  Army  Depot 
Waterv.iet  Arsenal 
Yuma  Proving  Ground 
White  Sands  Missile  Range 

FORSCOM 

F0RSCOM  Engineer,  ATTN:  AFEN-FE 

ATTN:  Facilities  Engineers 
Fort  Buchanan 
Fort  Bragg 
Fort  Campbell 
Fort  Carson 
Fort  Devens 
Fort  Drum 
Fort  Hood 

Fort  Indiantown  Gap 
Fort  Irwin 
Fort  Sam  Houston 
Fort  Lewis 
Fort  McCoy 
Fort  McPherson 
Fort  George  G.  Meade 
Fort  Ord 
Fort  Polk 
Fort  Richardson 
Fort  Riley 

Presidio  of  San  Francisco 
Fort  Sheridan 
Fort  Stewart 
Fort  Walnwright 
Vancouver  Bks, 

TRADOC 

HQ,  TRADOC,  ATTN:  ATEN-FE 

ATTN:  Facilities  Engineer 
Fort  Bel  voir 
Fort  Bennlng 
Fort  Bliss 
Carlisle  Barracks 
Fort  Chaffee 
Fort  Dix 
Fort  Eustis 
Fort  Gordon 
Fort  Hamilton 
Fort  Benjamin  Harrison 
Fort  Jackson 
Fort  Knox 
Fort  Leavenworth 
■  Fort  Lee 
Fort  McClellan 
Fort  Monroe 
Fort  Rucker 
Fort  Sill 
Fort  Leonard  Wood 

INSCOM  -  Ch,  Instl.  Dlv. 

ATTN:  Facilities  Engineer 
Vint  Hill  Farms  Station 
Arlington  Hall  Station 

WESTCOM 

ATTN:  Facilities  Engineer 
Fort  Shafter 

MOW 

ATTN:  Facilities  Engineer 
Cameron  Station 
Fort  Lesley  J.  McNair 
Fort  Myer 


HSC 

HQ  USAHSC ,  ATTN:  HSLO-F 
ATTN:  Facilities  Engineer 

Fitzsinons  Amy  Medical  Center 
Walter  Reed  Amy  Medical  Center 

USACC 

ATTN.  Facil ities  Engineer 
Fori  Huachuca 
Fort  Ritchie 

MTMC 

HQ,  ATTN:  MTMC-SA 
ATTN:  Facil Ities  Engineer 
Oakland  Amy  Base 
Bayonne  MOT 
Sunny  Point  MOT 

US  Mill tary  Academy 
ATTN :  Facilities  Eng i neer 

USAES,  Fort  Bel  voir,  VA 
ATTN:  FE  Mgmt.  Br. 

ATTN:  Const.  Mgmt.  Br. 

ATTN:  Engr.  Library 

Chief  Inst.  Div.,  IftSA,  Rock  Island.  IL 

USA  ARRCOM.  ATTN:  Olr.,  Instl  ft  Svc 
TARCOM,  Fac.  Div. 

TECOM,  ATTN:  DRSTE-LG-F 
TSARCOM,  ATTN:  STSAS-F 
NARAD  COM,  ATTN:  DRONA-F 
AMMRC,  ATTN:  DRXMR-WE 

HQ,  XVI II  Airborne  Corps  and 
Ft.  Bragg 
ATTN:  AFZA-FE-EF 

HQ,  7th  Amy  Training  Comnand 
ATTN:  AETTG-DEH  (5) 

HQ  USAREUR  and  7th  Army 

ODCS/Engineer 

ATTN:  AEAEN-EH  (4) 

V  Corps 

ATTN:  AETVDEH  (5) 

VII  Corps 
ATTN:  AETSDEH  (5) 

21st  Support  Comnand 
ATTN:  AEREH  (5) 

US  Amy  Berlin 
ATTN:  AEBA-EN  (2) 

US  Army  Southern  European  Task  Force 
ATTN:  AESE-ENG  (5) 

US  Amy  Installation  Support  Activity, 
Europe 

ATTN:  AEUES-RP 

8th  USA,  Korea 
ATTN:  EAFE 
Cdr,  Fac  Engr  Act  (8) 

AFE,  Yongsan  Area 
AFE,  20  Inf  Div 
AFE,  Area  II  Spt  Det 
AFE,  Cp  Humphreys 
AFE,  Pusan 
AFE,  Taegu 

DLA  ATTN:  DLA-WI 

USA  Japan  (USARJ) 

Ch,  FE  Div,  AJEN-FE 
Fac  Engr  (Honshu) 

Fac  Engr  (Okinawa) 

ROK/US  Combined  Forces  Comnand 
ATTN:  EUSA-HHC-CFC/Engr 


HIS  Branch  Distribution 


1'u.aiinny  Arsenal 
Aim:  SM1JPA-VPJ 

Direr loraie  of  facilities  Inqr 
Miami ,  It  34004 

HARLOW  ST  IT -|  UR 
AW  Mew  York  09/10 

west  Point,  NY  10996 
ATTN:  Dept  of  Mechanics 
ATTN:  Library 

MQOA  (SGRO-EDE) 

Chief  of  Engineers 
ATTN:  DAEN-MPO-B 
ATTN:  OAEN-MPR 
ATTN:  OAEN-MPO-U 
ATTN:  DAEN-MPZ-A 
ATTN:  OAEN-RDL 
ATTN:  OAEN-ZCC 

National  Defense  Headquarters 
Director  General  of  Construction 
Ottawa,  Ontario  K1A0K? 

Canada 

Airports  and  Const.  Services  Dir. 
Technical  Information  Reference 
Centre 

KAOL,  Transport  Canada  Building 
Place  de  Vi  1 1  e , 

Ottawa.  Ontario  KIA0N8 
Canada 

British  Liaison  Officer  (S) 

•J.S.  Army  Mobility  Equipment 
Reserach  and  Dev  Center 
f » .  Bel  voir,  VA  22060 

Aberdeen  Proving  Ground,  MO  21005 
ATTN:  AMXHE/J.  D.  Weis* 

It.  Bel  voir,  VA  22060 

ATTN:  Learning  Resources  Center 

ATTN:  ATSE-TD-TL  (2) 

ATTN:  Kingman  Bldg,  Library 
ATTN:  MAJ  Shurb  (4) 

Ft.  Leavenworth,  K$  66027 
ATZLCA-SA/F.  Wolcott 

Ft.  Monroe,  VA  23651 
ATTN:  ATEN-AD  (3) 

ATTN:  ATEN-FE-E 

Ft.  Lee,  VA  23801 
ATTN:  ORXMC-D  (2) 

HQ  FORSCOM 

ATTN:  AFEN-CD 

Ft.  Mcftierson,  GA  30330 

5th  US  Army 
ATTN:  AKFB-LG-E 

6th  US  Army 
ATTN:  AFKC-EN 

US  Army  Engineer  District 
New  York 

ATTN:  Chief,  NANEN-E 
ATTN:  Chief,  Design  Br. 
Pittsburgh 

ATTN:  Chief,  Engr  Oiv 
Philadelphia 
ATTN:  Chief,  NAPEN-E 
Baltimore 

ATTN:  Chief,  Engr  Oiv 
Norfolk 

ATTN:  Chief,  NAOEN-R 
.Huntington 

ATTN:  Chief,  ORHED-P 


US  Army  Engineer  District 
Wi lmington 

ATTN:  Chief,  SAUEN-PP 
ATTN:  Chief,  SAWEN-PM 
ATTN:  Chief,  SAWEN-E 
Charleston 

ATTN:  Chief,  Engr  Div 
Savannah 

ATTN:  Chief,  SASAS-L 
Jacksonville 
ATTN:  Env.  Res.  Br. 
Nashville 

ATTN:  Chief,  ORNEO-P 
Memph 1 s 

ATTN:  Chief,  LMHED-PR 
Vicksburg 

ATTN:  Chief,  Engr  Div 

Louisville 

ATTN:  Chief,  Engr  Div 
St.  Paul 

ATTN:  Chief,  ED-ER 
Chicago 

ATTN:  Chief.  NCCPD-ER 
St.  Louis 

ATTN:  Chief,  ED-8 
Kansas  City 
ATTN:  Chief,  Engr  Div 
Omaha 

ATTN:  Chief,  Engr  Div 
Little  Rock 

ATTN:  Chief,  Engr  Div 
Tulsa 

ATTN:  Chief,  Engr  Div 
Fort  Worth 

ATTN:  Chief,  SWFED-PR 
ATTN:  Chief,  SWFED-F 
Galveston 

ATTN:  Chief,  SWGAS-L 
ATTN:  Chief,  SWGCO-M 
Albuquerque 

ATTN:  Chief,  Engr  Div 
Los  Angeles 
ATTN:  Chief,  SPLED-E 
San  Francisco 
ATTN:  Chief,  Engr  Div 
Sacramento 


ATTN: 

Chief,  SPKED-D 

Far  East 

ATTN: 

Chief,  Engr  Div 

Seattle 

ATTN: 

Chief,  NPSEN-PL -WC 

ATTN: 

Chief,  NPSEN-PL-ER 

ATTN: 

Chief,  NPSEN-Pl-BP 

Walla  Walla 

ATTN:  Chief,  Engr  Div 
Alaska 

ATTN:  Chief,  NPASA-R 

US  Army  Engineer  Division 
New  England 
ATTN:  Laboratory 
ATTN:  Chief,  NEDED-E 
South  Atlantic 
ATTN:  Chief,  SADEN-E 
Huntsville 

ATTN:  Chief,  HNOEO-CS 
ATTN:  Chief,  HNDEO-M 
Lower  Mississippi  Valley 
ATTN:  Chief,  PD-R 
Ohio  River 

ATTN:  Chief,  Engr  Div 
North  Central 

ATTN:  Chief,  Engr  Planning  Br. 
Southwestern 
ATTN:  Chief,  SWDCO-O 
South  Pacific 
ATTN:  Laboratory 
Pacific  Ocean 
ATTN:  Chief,  Engr  Div 
ATTN:  Chief,  PODED-P 
North  Pacific 
ATTN:  Laboratory 
ATTN:  Chief,  Engr  Div 


McClellan  ATB,  CA  95652 
285?  APG/DE  (LT  Oavid  C.  Hall) 

Peterson  AFB,  CO  80914 
HQ  ADCUM/DCMUS  (M.  J.  Kerby) 

Tinker  AFB,  OK  73145 
2854  A8G/DEEE  (John  Wall) 

Patrick  AFB,  Fl  32925 
Base  CE  Sqdn  (James  T.  Burns) 

AF/RDXT 

WASH  DC  20330 
AFESC/PRT 

Tyndall  AFB,  FL  32403 

Little  Rock  AFB 

ATTN:  314/DEEE  (Mr.  Gil  I  ham) 

Kirtland  AFB,  m  87117 
ATTN:  ttP 

US  Naval  Cfceanographic  Office 

ATTN:  Library 

8ay  St.  Louis,  MS  39522 

Naval  Facilities  Engr  Comnand 
ATTN:  Code  04 
Alexandria,  VA  22332 

Port  Hueneme,  CA  93043 
ATTN:  Library  (Code  L08A) 

ATTN:  Morel  1  Library 

Washington,  DC 

ATTN:  Building  Research  Advisory  Board 
ATTN:  Transportation  Research  Board 
ATTN:  library  of  Congress  (2) 

ATTN:  Dept,  of  Transportation  Library 

Dept  of  Transportation 
ATTN:  W.  N.  LofrooS,  P.  E. 

Tallahassee,  FL  32304 

LT  Neil  B.  Hall,  CEC,  USNH  (Code  100) 
884-6366 

US  Navy  Publ ic  Works  Center 
Box  6.  FPO  San  Francisco  96651 


HQ  AFC SC 

ATTK:  8CVR/CPT  R.  Hawkins  (100) 
ATW:  TST/L i bra ry  (2) 

Tj*4«n  AFB,  Fl  12403 
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Webster,  Ronald  Dwight 

Interagency/Intergovernmental  Coordination  for  environmental  Planning  (IICEP): 
systems  considerations  !  by  R.  D.  Webster,  D.  £.  Putnam.  --  Champaign,  II  :  Con¬ 
struction  Engineering  Research  Laboratory  ;  Springfield,  VA  :  available  from  NTIS, 

I960. 

101  p.i  27  cm.  (Technical  report  ;  N-8?) 

1.  State  governments  --  directories-data  processing.  2.  Environmental  policy- 
directories-data  processing.  3.  U.S.  Air  Porce-environmental  aspects.  !.  Putnam, 
Daniel  E.  11.  Title.  III.  Series:  U.S.  Army  Construction  Engineering  Research 
Laboratory.  Technical  report  ;  N-87. 


